/*===========================================================================*/
/*   (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 -O3 -mklib -cc gcc-2.95 -fsharing -q -rm -s -unsafev -eval (set! *indent* 4) -copt -DBGL_NO_PIC -g -c Ieee/number.scm -indent -o objs/obj_s/Ieee/number.c)*/
/* GC selection */
#define THE_GC BOEHM_GC

/* debug mode */
#define BIGLOO_DEBUG 1

#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);
extern obj_t BGl_debugzd2errorzf2locationz20zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
extern obj_t the_failure(obj_t, obj_t, obj_t);
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);
static obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5z00();
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);
extern obj_t string_to_symbol(char *);
static obj_t BGl_symbol5998z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5997z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__inexactzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol5995z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5994z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__positivezf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol5993z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5991z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5989z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol5987z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5986z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5984z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_maxz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol5983z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5981z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5980z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5978z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5977z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5975z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5973z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__zc3zd3z10zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t, obj_t);
static obj_t BGl_symbol5970z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_ze3zd3z30zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol5968z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5967z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5966z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5965z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5963z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__sqrtz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol5962z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5961z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__exactzf3zf3zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol5960z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6058z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5958z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5957z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5954z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5953z00zz__r4_numbers_6_5z00 = BUNSPEC;
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_symbol5952z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5z00();
static obj_t BGl_symbol5951z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6049z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5950z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5949z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol5948z00zz__r4_numbers_6_5z00 = BUNSPEC;
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_symbol6044z00zz__r4_numbers_6_5z00 = BUNSPEC;
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_symbol6043z00zz__r4_numbers_6_5z00 = BUNSPEC;
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_symbol6042z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__zd2zd2zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
static obj_t BGl_symbol6039z00zz__r4_numbers_6_5z00 = BUNSPEC;
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);
static obj_t BGl_symbol6036z00zz__r4_numbers_6_5z00 = BUNSPEC;
extern obj_t BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(obj_t, obj_t, obj_t, obj_t, obj_t);
BGL_EXPORTED_DECL double BGl_tanz00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_symbol6031z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6029z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_za7erozf3z54zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_symbol6027z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_positivezf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_symbol6025z00zz__r4_numbers_6_5z00 = BUNSPEC;
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_symbol6023z00zz__r4_numbers_6_5z00 = BUNSPEC;
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);
static obj_t BGl_symbol6021z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6019z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6017z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6015z00zz__r4_numbers_6_5z00 = BUNSPEC;
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);
static obj_t BGl_symbol6013z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6011z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_symbol6009z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6007z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6006z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__acosz00zz__r4_numbers_6_5z00(obj_t, obj_t);
static obj_t BGl_symbol6004z00zz__r4_numbers_6_5z00 = BUNSPEC;
BGL_EXPORTED_DECL obj_t BGl_truncatez00zz__r4_numbers_6_5z00(obj_t);
static obj_t BGl_symbol6003z00zz__r4_numbers_6_5z00 = BUNSPEC;
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_symbol6001z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl_symbol6000z00zz__r4_numbers_6_5z00 = BUNSPEC;
static obj_t BGl__numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t, obj_t, obj_t);
extern obj_t BGl_errorzf2czd2locationz20zz__errorz00(obj_t, obj_t, obj_t, char *, long);
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_5za7006073za7, BGl__2zf2zf2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_exptzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__exptza700za7za7__r4_numbers_6_5za7006074z00, BGl__exptz00zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_asinzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__asinza700za7za7__r4_numbers_6_5za7006075z00, BGl__asinz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_numberzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__numberza7f3za7f3za7za7__r4_numbers_6_5za7006076za7, BGl__numberzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_acoszd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__acosza700za7za7__r4_numbers_6_5za7006077z00, BGl__acosz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_rationalzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__rationalza7f3za7f3za7za7__r4_numbers_6_5za7006078za7, BGl__rationalzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_logzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__logza700za7za7__r4_numbers_6_5za7006079z00, BGl__logz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_truncatezd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__truncateza700za7za7__r4_numbers_6_5za7006080z00, BGl__truncatez00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd2envz11zz__r4_numbers_6_5z00, BgL_bgl__za7c3za7c3za7za7__r4_numbers_6_5za7006081za7, 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_5za7006082z00, BGl__expz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2zc3zd2envz11zz__r4_numbers_6_5z00, BgL_bgl__2za7c3za7c3za7za7__r4_numbers_6_5za7006083za7, BGl__2zc3zc3zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_sinzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__sinza700za7za7__r4_numbers_6_5za7006084z00, BGl__sinz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_numberzd2ze3stringzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__numberza7d2za7e3stringza731za7za7__r4_numbers_6_5za7006085z00, 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_5za7006086z00, BGl__cosz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzd2ze3llongzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__flonumza7d2za7e3llongza731za7za7__r4_numbers_6_5za7006087z00, BGl__flonumzd2ze3llongz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_positivezf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__positiveza7f3za7f3za7za7__r4_numbers_6_5za7006088za7, BGl__positivezf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za7erozf3zd2envz86zz__r4_numbers_6_5z00, BgL_bgl__za7a7eroza7f3za754za7za7__r4_numbers_6_5za7006089z00, BGl__za7erozf3z54zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_sqrtzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__sqrtza700za7za7__r4_numbers_6_5za7006090z00, BGl__sqrtz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_llongzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__llongza7d2za7e3flonumza731za7za7__r4_numbers_6_5za7006091z00, BGl__llongzd2ze3flonumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zc3zd3zd2envzc2zz__r4_numbers_6_5z00, BgL_bgl__za7c3za7d3za710za7za7__r4_numbers_6_5za7006092z00, va_generic_entry, BGl__zc3zd3z10zz__r4_numbers_6_5z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd2envz31zz__r4_numbers_6_5z00, BgL_bgl__za7e3za7e3za7za7__r4_numbers_6_5za7006093za7, va_generic_entry, BGl__ze3ze3zz__r4_numbers_6_5z00, -3 );
DEFINE_EXPORT_PROCEDURE( BGl_2ze3zd2envz31zz__r4_numbers_6_5z00, BgL_bgl__2za7e3za7e3za7za7__r4_numbers_6_5za7006094za7, BGl__2ze3ze3zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_STRING( BGl_string5999z00zz__r4_numbers_6_5z00, BgL_bgl_string5999za700za7za7__r4_numbers_6_5za7006095z00, "*", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_negativezf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__negativeza7f3za7f3za7za7__r4_numbers_6_5za7006096za7, BGl__negativezf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string5996z00zz__r4_numbers_6_5z00, BgL_bgl_string5996za700za7za7__r4_numbers_6_5za7006097z00, "+", 1 );
DEFINE_STRING( BGl_string5992z00zz__r4_numbers_6_5z00, BgL_bgl_string5992za700za7za7__r4_numbers_6_5za7006098z00, "negative", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzd2ze3elongzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__flonumza7d2za7e3elongza731za7za7__r4_numbers_6_5za7006099z00, BGl__flonumzd2ze3elongz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string5990z00zz__r4_numbers_6_5z00, BgL_bgl_string5990za700za7za7__r4_numbers_6_5za7006100z00, "positive", 8 );
DEFINE_STRING( BGl_string5988z00zz__r4_numbers_6_5z00, BgL_bgl_string5988za700za7za7__r4_numbers_6_5za7006101z00, "zero", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_zb2zd2envz60zz__r4_numbers_6_5z00, BgL_bgl__za7b2za7b2za7za7__r4_numbers_6_5za7006102za7, 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_5za7006103z00, BGl__2zc3zd3z10zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_2zb2zd2envz60zz__r4_numbers_6_5z00, BgL_bgl__2za7b2za7b2za7za7__r4_numbers_6_5za7006104za7, BGl__2zb2zb2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_STRING( BGl_string5985z00zz__r4_numbers_6_5z00, BgL_bgl_string5985za700za7za7__r4_numbers_6_5za7006105z00, ">=", 2 );
DEFINE_EXPORT_PROCEDURE( BGl_inexactzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__inexactza7f3za7f3za7za7__r4_numbers_6_5za7006106za7, BGl__inexactzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_roundzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__roundza700za7za7__r4_numbers_6_5za7006107z00, BGl__roundz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string5982z00zz__r4_numbers_6_5z00, BgL_bgl_string5982za700za7za7__r4_numbers_6_5za7006108z00, "<=", 2 );
DEFINE_STRING( BGl_string5979z00zz__r4_numbers_6_5z00, BgL_bgl_string5979za700za7za7__r4_numbers_6_5za7006109z00, ">", 1 );
DEFINE_STRING( BGl_string5976z00zz__r4_numbers_6_5z00, BgL_bgl_string5976za700za7za7__r4_numbers_6_5za7006110z00, "<", 1 );
DEFINE_STRING( BGl_string5974z00zz__r4_numbers_6_5z00, BgL_bgl_string5974za700za7za7__r4_numbers_6_5za7006111z00, "pair", 4 );
DEFINE_STRING( BGl_string5972z00zz__r4_numbers_6_5z00, BgL_bgl_string5972za700za7za7__r4_numbers_6_5za7006112z00, "not a number", 12 );
DEFINE_STRING( BGl_string5971z00zz__r4_numbers_6_5z00, BgL_bgl_string5971za700za7za7__r4_numbers_6_5za7006113z00, "=", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_complexzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__complexza7f3za7f3za7za7__r4_numbers_6_5za7006114za7, BGl__complexzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string5969z00zz__r4_numbers_6_5z00, BgL_bgl_string5969za700za7za7__r4_numbers_6_5za7006115z00, "llong", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_minzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__minza700za7za7__r4_numbers_6_5za7006116z00, 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_5za7006117z00, va_generic_entry, BGl__maxz00zz__r4_numbers_6_5z00, -2 );
DEFINE_STRING( BGl_string5964z00zz__r4_numbers_6_5z00, BgL_bgl_string5964za700za7za7__r4_numbers_6_5za7006118z00, "elong", 5 );
DEFINE_STRING( BGl_string5959z00zz__r4_numbers_6_5z00, BgL_bgl_string5959za700za7za7__r4_numbers_6_5za7006119z00, "long", 4 );
DEFINE_STRING( BGl_string6057z00zz__r4_numbers_6_5z00, BgL_bgl_string6057za700za7za7__r4_numbers_6_5za7006120z00, "Only radix `10' is legal for floating point number", 50 );
DEFINE_STRING( BGl_string6056z00zz__r4_numbers_6_5z00, BgL_bgl_string6056za700za7za7__r4_numbers_6_5za7006121z00, "Illegal number of optional arguments", 36 );
DEFINE_STRING( BGl_string5956z00zz__r4_numbers_6_5z00, BgL_bgl_string5956za700za7za7__r4_numbers_6_5za7006122z00, "/tmp/bigloo/runtime/./Ieee/number.scm", 37 );
DEFINE_STRING( BGl_string6055z00zz__r4_numbers_6_5z00, BgL_bgl_string6055za700za7za7__r4_numbers_6_5za7006123z00, "Illegal radix", 13 );
DEFINE_STRING( BGl_string5955z00zz__r4_numbers_6_5z00, BgL_bgl_string5955za700za7za7__r4_numbers_6_5za7006124z00, "double", 6 );
DEFINE_STRING( BGl_string6054z00zz__r4_numbers_6_5z00, BgL_bgl_string6054za700za7za7__r4_numbers_6_5za7006125z00, "string->number", 14 );
DEFINE_STRING( BGl_string6053z00zz__r4_numbers_6_5z00, BgL_bgl_string6053za700za7za7__r4_numbers_6_5za7006126z00, "uchar", 5 );
DEFINE_STRING( BGl_string6052z00zz__r4_numbers_6_5z00, BgL_bgl_string6052za700za7za7__r4_numbers_6_5za7006127z00, "index out of range", 18 );
DEFINE_STRING( BGl_string6051z00zz__r4_numbers_6_5z00, BgL_bgl_string6051za700za7za7__r4_numbers_6_5za7006128z00, "string-ref", 10 );
DEFINE_STRING( BGl_string6050z00zz__r4_numbers_6_5z00, BgL_bgl_string6050za700za7za7__r4_numbers_6_5za7006129z00, "bstring", 7 );
DEFINE_STRING( BGl_string6048z00zz__r4_numbers_6_5z00, BgL_bgl_string6048za700za7za7__r4_numbers_6_5za7006130z00, "string", 6 );
DEFINE_STRING( BGl_string6047z00zz__r4_numbers_6_5z00, BgL_bgl_string6047za700za7za7__r4_numbers_6_5za7006131z00, "Argument not a number", 21 );
DEFINE_STRING( BGl_string6046z00zz__r4_numbers_6_5z00, BgL_bgl_string6046za700za7za7__r4_numbers_6_5za7006132z00, "number->string", 14 );
DEFINE_STRING( BGl_string6045z00zz__r4_numbers_6_5z00, BgL_bgl_string6045za700za7za7__r4_numbers_6_5za7006133z00, "real", 4 );
DEFINE_STRING( BGl_string6041z00zz__r4_numbers_6_5z00, BgL_bgl_string6041za700za7za7__r4_numbers_6_5za7006134z00, "expt", 4 );
DEFINE_STRING( BGl_string6038z00zz__r4_numbers_6_5z00, BgL_bgl_string6038za700za7za7__r4_numbers_6_5za7006135z00, "sqrt", 4 );
DEFINE_STRING( BGl_string6037z00zz__r4_numbers_6_5z00, BgL_bgl_string6037za700za7za7__r4_numbers_6_5za7006136z00, "sqrtfl", 6 );
DEFINE_STRING( BGl_string6034z00zz__r4_numbers_6_5z00, BgL_bgl_string6034za700za7za7__r4_numbers_6_5za7006137z00, "Domain error", 12 );
DEFINE_STRING( BGl_string6033z00zz__r4_numbers_6_5z00, BgL_bgl_string6033za700za7za7__r4_numbers_6_5za7006138z00, "atanfl", 6 );
DEFINE_STRING( BGl_string6032z00zz__r4_numbers_6_5z00, BgL_bgl_string6032za700za7za7__r4_numbers_6_5za7006139z00, "atan", 4 );
DEFINE_EXPORT_PROCEDURE( BGl_flonumzd2ze3fixnumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__flonumza7d2za7e3fixnumza731za7za7__r4_numbers_6_5za7006140z00, BGl__flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string6030z00zz__r4_numbers_6_5z00, BgL_bgl_string6030za700za7za7__r4_numbers_6_5za7006141z00, "acos", 4 );
DEFINE_STRING( BGl_string6028z00zz__r4_numbers_6_5z00, BgL_bgl_string6028za700za7za7__r4_numbers_6_5za7006142z00, "asin", 4 );
DEFINE_STRING( BGl_string6026z00zz__r4_numbers_6_5z00, BgL_bgl_string6026za700za7za7__r4_numbers_6_5za7006143z00, "tan", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_atanzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__atanza700za7za7__r4_numbers_6_5za7006144z00, va_generic_entry, BGl__atanz00zz__r4_numbers_6_5z00, -2 );
DEFINE_STRING( BGl_string6024z00zz__r4_numbers_6_5z00, BgL_bgl_string6024za700za7za7__r4_numbers_6_5za7006145z00, "cos", 3 );
DEFINE_STRING( BGl_string6022z00zz__r4_numbers_6_5z00, BgL_bgl_string6022za700za7za7__r4_numbers_6_5za7006146z00, "sin", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_stringzd2ze3numberzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__stringza7d2za7e3numberza731za7za7__r4_numbers_6_5za7006147z00, va_generic_entry, BGl__stringzd2ze3numberz31zz__r4_numbers_6_5z00, -2 );
DEFINE_STRING( BGl_string6020z00zz__r4_numbers_6_5z00, BgL_bgl_string6020za700za7za7__r4_numbers_6_5za7006148z00, "log", 3 );
DEFINE_STRING( BGl_string6018z00zz__r4_numbers_6_5z00, BgL_bgl_string6018za700za7za7__r4_numbers_6_5za7006149z00, "exp", 3 );
DEFINE_EXPORT_PROCEDURE( BGl_ze3zd3zd2envze2zz__r4_numbers_6_5z00, BgL_bgl__za7e3za7d3za730za7za7__r4_numbers_6_5za7006150z00, va_generic_entry, BGl__ze3zd3z30zz__r4_numbers_6_5z00, -3 );
DEFINE_STRING( BGl_string6016z00zz__r4_numbers_6_5z00, BgL_bgl_string6016za700za7za7__r4_numbers_6_5za7006151z00, "round", 5 );
DEFINE_EXPORT_PROCEDURE( BGl_zd2zd2envz00zz__r4_numbers_6_5z00, BgL_bgl__za7d2za7d2za7za7__r4_numbers_6_5za7006152za7, va_generic_entry, BGl__zd2zd2zz__r4_numbers_6_5z00, -2 );
DEFINE_STRING( BGl_string6014z00zz__r4_numbers_6_5z00, BgL_bgl_string6014za700za7za7__r4_numbers_6_5za7006153z00, "truncate", 8 );
DEFINE_EXPORT_PROCEDURE( BGl_ceilingzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__ceilingza700za7za7__r4_numbers_6_5za7006154z00, BGl__ceilingz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2zd2zd2envz00zz__r4_numbers_6_5z00, BgL_bgl__2za7d2za7d2za7za7__r4_numbers_6_5za7006155za7, BGl__2zd2zd2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_STRING( BGl_string6012z00zz__r4_numbers_6_5z00, BgL_bgl_string6012za700za7za7__r4_numbers_6_5za7006156z00, "ceiling", 7 );
DEFINE_STRING( BGl_string6010z00zz__r4_numbers_6_5z00, BgL_bgl_string6010za700za7za7__r4_numbers_6_5za7006157z00, "floor", 5 );
DEFINE_STRING( BGl_string6008z00zz__r4_numbers_6_5z00, BgL_bgl_string6008za700za7za7__r4_numbers_6_5za7006158z00, "abs", 3 );
DEFINE_STRING( BGl_string6005z00zz__r4_numbers_6_5z00, BgL_bgl_string6005za700za7za7__r4_numbers_6_5za7006159z00, "/", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_abszd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__absza700za7za7__r4_numbers_6_5za7006160z00, BGl__absz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_STRING( BGl_string6002z00zz__r4_numbers_6_5z00, BgL_bgl_string6002za700za7za7__r4_numbers_6_5za7006161z00, "-", 1 );
DEFINE_EXPORT_PROCEDURE( BGl_inexactzd2ze3exactzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__inexactza7d2za7e3exactza731za7za7__r4_numbers_6_5za7006162z00, BGl__inexactzd2ze3exactz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2ze3zd3zd2envze2zz__r4_numbers_6_5z00, BgL_bgl__2za7e3za7d3za730za7za7__r4_numbers_6_5za7006163z00, BGl__2ze3zd3z30zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_zd3zd2envz01zz__r4_numbers_6_5z00, BgL_bgl__za7d3za7d3za7za7__r4_numbers_6_5za7006164za7, 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_5za7006165za7, BGl__2zd3zd3zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_EXPORT_PROCEDURE( BGl_fixnumzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__fixnumza7d2za7e3flonumza731za7za7__r4_numbers_6_5za7006166z00, BGl__fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_floorzd2envzd2zz__r4_numbers_6_5z00, BgL_bgl__floorza700za7za7__r4_numbers_6_5za7006167z00, BGl__floorz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_za2zd2envz70zz__r4_numbers_6_5z00, BgL_bgl__za7a2za7a2za7za7__r4_numbers_6_5za7006168za7, 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_5za7006169z00, BGl__tanz00zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_2za2zd2envz70zz__r4_numbers_6_5z00, BgL_bgl__2za7a2za7a2za7za7__r4_numbers_6_5za7006170za7, BGl__2za2za2zz__r4_numbers_6_5z00, 0L, 2 );
DEFINE_REAL( BGl_real6035z00zz__r4_numbers_6_5z00, BgL_bgl_real6035za700za7za7__r4_numbers_6_5za7006171z00, 0.0 );
DEFINE_REAL( BGl_real6040z00zz__r4_numbers_6_5z00, BgL_bgl_real6040za700za7za7__r4_numbers_6_5za7006172z00, 1.0 );
DEFINE_EXPORT_PROCEDURE( BGl_elongzd2ze3flonumzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__elongza7d2za7e3flonumza731za7za7__r4_numbers_6_5za7006173z00, BGl__elongzd2ze3flonumz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_exactzf3zd2envz21zz__r4_numbers_6_5z00, BgL_bgl__exactza7f3za7f3za7za7__r4_numbers_6_5za7006174za7, BGl__exactzf3zf3zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_exactzd2ze3inexactzd2envze3zz__r4_numbers_6_5z00, BgL_bgl__exactza7d2za7e3inexactza731za7za7__r4_numbers_6_5za7006175z00, BGl__exactzd2ze3inexactz31zz__r4_numbers_6_5z00, 0L, 1 );
DEFINE_EXPORT_PROCEDURE( BGl_zf2zd2envz20zz__r4_numbers_6_5z00, BgL_bgl__za7f2za7f2za7za7__r4_numbers_6_5za7006176za7, 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_2636, char * BgL_fromz00_2637)
{ AN_OBJECT;
{ 
if(
CBOOL(BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5z00))
{ 
BGl_requirezd2initializa7ationz75zz__r4_numbers_6_5z00 = 
BBOOL(((bool_t)0)); 
BGl_cnstzd2initzd2zz__r4_numbers_6_5z00(); 
BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5z00(); 
return BUNSPEC;}  else 
{ 
return BUNSPEC;} } 
}



/* cnst-init */
obj_t BGl_cnstzd2initzd2zz__r4_numbers_6_5z00()
{ AN_OBJECT;
{ /* ./Ieee/number.scm 18 */
BGl_symbol5948z00zz__r4_numbers_6_5z00 = 
string_to_symbol("number?"); 
BGl_symbol5949z00zz__r4_numbers_6_5z00 = 
string_to_symbol("exact?"); 
BGl_symbol5950z00zz__r4_numbers_6_5z00 = 
string_to_symbol("inexact?"); 
BGl_symbol5951z00zz__r4_numbers_6_5z00 = 
string_to_symbol("complex?"); 
BGl_symbol5952z00zz__r4_numbers_6_5z00 = 
string_to_symbol("rational?"); 
BGl_symbol5953z00zz__r4_numbers_6_5z00 = 
string_to_symbol("flonum->fixnum"); 
BGl_symbol5954z00zz__r4_numbers_6_5z00 = 
string_to_symbol("_flonum->fixnum"); 
BGl_symbol5957z00zz__r4_numbers_6_5z00 = 
string_to_symbol("fixnum->flonum"); 
BGl_symbol5958z00zz__r4_numbers_6_5z00 = 
string_to_symbol("_fixnum->flonum"); 
BGl_symbol5960z00zz__r4_numbers_6_5z00 = 
string_to_symbol("flonum->elong"); 
BGl_symbol5961z00zz__r4_numbers_6_5z00 = 
string_to_symbol("_flonum->elong"); 
BGl_symbol5962z00zz__r4_numbers_6_5z00 = 
string_to_symbol("elong->flonum"); 
BGl_symbol5963z00zz__r4_numbers_6_5z00 = 
string_to_symbol("_elong->flonum"); 
BGl_symbol5965z00zz__r4_numbers_6_5z00 = 
string_to_symbol("flonum->llong"); 
BGl_symbol5966z00zz__r4_numbers_6_5z00 = 
string_to_symbol("_flonum->llong"); 
BGl_symbol5967z00zz__r4_numbers_6_5z00 = 
string_to_symbol("llong->flonum"); 
BGl_symbol5968z00zz__r4_numbers_6_5z00 = 
string_to_symbol("_llong->flonum"); 
BGl_symbol5970z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2="); 
BGl_symbol5973z00zz__r4_numbers_6_5z00 = 
string_to_symbol("="); 
BGl_symbol5975z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2<"); 
BGl_symbol5977z00zz__r4_numbers_6_5z00 = 
string_to_symbol("<"); 
BGl_symbol5978z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2>"); 
BGl_symbol5980z00zz__r4_numbers_6_5z00 = 
string_to_symbol(">"); 
BGl_symbol5981z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2<="); 
BGl_symbol5983z00zz__r4_numbers_6_5z00 = 
string_to_symbol("<="); 
BGl_symbol5984z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2>="); 
BGl_symbol5986z00zz__r4_numbers_6_5z00 = 
string_to_symbol(">="); 
BGl_symbol5987z00zz__r4_numbers_6_5z00 = 
string_to_symbol("zero?"); 
BGl_symbol5989z00zz__r4_numbers_6_5z00 = 
string_to_symbol("positive?"); 
BGl_symbol5991z00zz__r4_numbers_6_5z00 = 
string_to_symbol("negative?"); 
BGl_symbol5993z00zz__r4_numbers_6_5z00 = 
string_to_symbol("max"); 
BGl_symbol5994z00zz__r4_numbers_6_5z00 = 
string_to_symbol("min"); 
BGl_symbol5995z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2+"); 
BGl_symbol5997z00zz__r4_numbers_6_5z00 = 
string_to_symbol("+"); 
BGl_symbol5998z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2*"); 
BGl_symbol6000z00zz__r4_numbers_6_5z00 = 
string_to_symbol("*"); 
BGl_symbol6001z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2-"); 
BGl_symbol6003z00zz__r4_numbers_6_5z00 = 
string_to_symbol("-"); 
BGl_symbol6004z00zz__r4_numbers_6_5z00 = 
string_to_symbol("2/"); 
BGl_symbol6006z00zz__r4_numbers_6_5z00 = 
string_to_symbol("/"); 
BGl_symbol6007z00zz__r4_numbers_6_5z00 = 
string_to_symbol("abs"); 
BGl_symbol6009z00zz__r4_numbers_6_5z00 = 
string_to_symbol("floor"); 
BGl_symbol6011z00zz__r4_numbers_6_5z00 = 
string_to_symbol("ceiling"); 
BGl_symbol6013z00zz__r4_numbers_6_5z00 = 
string_to_symbol("truncate"); 
BGl_symbol6015z00zz__r4_numbers_6_5z00 = 
string_to_symbol("round"); 
BGl_symbol6017z00zz__r4_numbers_6_5z00 = 
string_to_symbol("exp"); 
BGl_symbol6019z00zz__r4_numbers_6_5z00 = 
string_to_symbol("log"); 
BGl_symbol6021z00zz__r4_numbers_6_5z00 = 
string_to_symbol("sin"); 
BGl_symbol6023z00zz__r4_numbers_6_5z00 = 
string_to_symbol("cos"); 
BGl_symbol6025z00zz__r4_numbers_6_5z00 = 
string_to_symbol("tan"); 
BGl_symbol6027z00zz__r4_numbers_6_5z00 = 
string_to_symbol("asin"); 
BGl_symbol6029z00zz__r4_numbers_6_5z00 = 
string_to_symbol("acos"); 
BGl_symbol6031z00zz__r4_numbers_6_5z00 = 
string_to_symbol("atan"); 
BGl_symbol6036z00zz__r4_numbers_6_5z00 = 
string_to_symbol("sqrt"); 
BGl_symbol6039z00zz__r4_numbers_6_5z00 = 
string_to_symbol("expt"); 
BGl_symbol6042z00zz__r4_numbers_6_5z00 = 
string_to_symbol("exact->inexact"); 
BGl_symbol6043z00zz__r4_numbers_6_5z00 = 
string_to_symbol("inexact->exact"); 
BGl_symbol6044z00zz__r4_numbers_6_5z00 = 
string_to_symbol("number->string"); 
BGl_symbol6049z00zz__r4_numbers_6_5z00 = 
string_to_symbol("string->number"); 
return ( 
BGl_symbol6058z00zz__r4_numbers_6_5z00 = 
string_to_symbol("%import@__r4_numbers_6_5"), BUNSPEC) ;} 
}



/* number? */
BGL_EXPORTED_DEF bool_t BGl_numberzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_objz00_1)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 166 */
{ /* ./Ieee/number.scm 167 */
obj_t BgL_symbol2514z00_2564;
BgL_symbol2514z00_2564 = BGl_symbol5948z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 167 */

PUSH_TRACE(BgL_symbol2514z00_2564); BUNSPEC; 
{ /* ./Ieee/number.scm 167 */
bool_t BgL_aux2513z00_2565;
if(
INTEGERP(BgL_objz00_1))
{ /* ./Ieee/number.scm 167 */
BgL_aux2513z00_2565 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 167 */
BgL_aux2513z00_2565 = 
REALP(BgL_objz00_1); } 
POP_TRACE(); 
return BgL_aux2513z00_2565;} } } } 
}



/* _number? */
obj_t BGl__numberzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1975, obj_t BgL_objz00_1976)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 166 */
{ /* ./Ieee/number.scm 167 */
bool_t BgL_auxz00_2708;
{ /* ./Ieee/number.scm 167 */
bool_t BgL_res6059z00_2569;
{ /* ./Ieee/number.scm 167 */
obj_t BgL_symbol2514z00_2567;
BgL_symbol2514z00_2567 = BGl_symbol5948z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 167 */

PUSH_TRACE(BgL_symbol2514z00_2567); BUNSPEC; 
{ /* ./Ieee/number.scm 167 */
bool_t BgL_aux2513z00_2568;
if(
INTEGERP(BgL_objz00_1976))
{ /* ./Ieee/number.scm 167 */
BgL_aux2513z00_2568 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 167 */
BgL_aux2513z00_2568 = 
REALP(BgL_objz00_1976); } 
POP_TRACE(); 
BgL_res6059z00_2569 = BgL_aux2513z00_2568; } } } 
BgL_auxz00_2708 = BgL_res6059z00_2569; } 
return 
BBOOL(BgL_auxz00_2708);} } 
}



/* exact? */
BGL_EXPORTED_DEF bool_t BGl_exactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_za7za7_2)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 174 */
{ /* ./Ieee/number.scm 175 */
obj_t BgL_symbol2518z00_2570;
BgL_symbol2518z00_2570 = BGl_symbol5949z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 175 */

PUSH_TRACE(BgL_symbol2518z00_2570); BUNSPEC; 
{ /* ./Ieee/number.scm 175 */
bool_t BgL_aux2517z00_2571;
BgL_aux2517z00_2571 = 
INTEGERP(BgL_za7za7_2); 
POP_TRACE(); 
return BgL_aux2517z00_2571;} } } } 
}



/* _exact? */
obj_t BGl__exactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1977, obj_t BgL_za7za7_1978)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 174 */
{ /* ./Ieee/number.scm 175 */
bool_t BgL_auxz00_2718;
{ /* ./Ieee/number.scm 175 */
bool_t BgL_res6060z00_2575;
{ /* ./Ieee/number.scm 175 */
obj_t BgL_symbol2518z00_2573;
BgL_symbol2518z00_2573 = BGl_symbol5949z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 175 */

PUSH_TRACE(BgL_symbol2518z00_2573); BUNSPEC; 
{ /* ./Ieee/number.scm 175 */
bool_t BgL_aux2517z00_2574;
BgL_aux2517z00_2574 = 
INTEGERP(BgL_za7za7_1978); 
POP_TRACE(); 
BgL_res6060z00_2575 = BgL_aux2517z00_2574; } } } 
BgL_auxz00_2718 = BgL_res6060z00_2575; } 
return 
BBOOL(BgL_auxz00_2718);} } 
}



/* inexact? */
BGL_EXPORTED_DEF bool_t BGl_inexactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_za7za7_3)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 180 */
{ /* ./Ieee/number.scm 181 */
obj_t BgL_symbol2522z00_2576;
BgL_symbol2522z00_2576 = BGl_symbol5950z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 181 */

PUSH_TRACE(BgL_symbol2522z00_2576); BUNSPEC; 
{ /* ./Ieee/number.scm 181 */
bool_t BgL_aux2521z00_2577;
BgL_aux2521z00_2577 = 
REALP(BgL_za7za7_3); 
POP_TRACE(); 
return BgL_aux2521z00_2577;} } } } 
}



/* _inexact? */
obj_t BGl__inexactzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1979, obj_t BgL_za7za7_1980)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 180 */
{ /* ./Ieee/number.scm 181 */
bool_t BgL_auxz00_2726;
{ /* ./Ieee/number.scm 181 */
bool_t BgL_res6061z00_2581;
{ /* ./Ieee/number.scm 181 */
obj_t BgL_symbol2522z00_2579;
BgL_symbol2522z00_2579 = BGl_symbol5950z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 181 */

PUSH_TRACE(BgL_symbol2522z00_2579); BUNSPEC; 
{ /* ./Ieee/number.scm 181 */
bool_t BgL_aux2521z00_2580;
BgL_aux2521z00_2580 = 
REALP(BgL_za7za7_1980); 
POP_TRACE(); 
BgL_res6061z00_2581 = BgL_aux2521z00_2580; } } } 
BgL_auxz00_2726 = BgL_res6061z00_2581; } 
return 
BBOOL(BgL_auxz00_2726);} } 
}



/* complex? */
BGL_EXPORTED_DEF bool_t BGl_complexzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_4)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 186 */
{ /* ./Ieee/number.scm 187 */
obj_t BgL_symbol2526z00_1873;
BgL_symbol2526z00_1873 = BGl_symbol5951z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 187 */

PUSH_TRACE(BgL_symbol2526z00_1873); BUNSPEC; 
{ /* ./Ieee/number.scm 187 */
bool_t BgL_aux2525z00_1874;
if(
INTEGERP(BgL_xz00_4))
{ /* ./Ieee/number.scm 187 */
BgL_aux2525z00_1874 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 187 */
BgL_aux2525z00_1874 = 
REALP(BgL_xz00_4); } 
POP_TRACE(); 
return BgL_aux2525z00_1874;} } } } 
}



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



/* rational? */
BGL_EXPORTED_DEF bool_t BGl_rationalzf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_5)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 192 */
{ /* ./Ieee/number.scm 193 */
obj_t BgL_symbol2530z00_1875;
BgL_symbol2530z00_1875 = BGl_symbol5952z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 193 */

PUSH_TRACE(BgL_symbol2530z00_1875); BUNSPEC; 
{ /* ./Ieee/number.scm 193 */
bool_t BgL_aux2529z00_1876;
if(
INTEGERP(BgL_xz00_5))
{ /* ./Ieee/number.scm 193 */
BgL_aux2529z00_1876 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 193 */
BgL_aux2529z00_1876 = 
REALP(BgL_xz00_5); } 
POP_TRACE(); 
return BgL_aux2529z00_1876;} } } } 
}



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



/* flonum->fixnum */
BGL_EXPORTED_DEF long BGl_flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00(double BgL_xz00_6)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 198 */
{ /* ./Ieee/number.scm 199 */
obj_t BgL_symbol2534z00_2582;
BgL_symbol2534z00_2582 = BGl_symbol5953z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 199 */

PUSH_TRACE(BgL_symbol2534z00_2582); BUNSPEC; 
{ /* ./Ieee/number.scm 199 */
long BgL_aux2533z00_2583;
BgL_aux2533z00_2583 = 
(long)(BgL_xz00_6); 
POP_TRACE(); 
return BgL_aux2533z00_2583;} } } } 
}



/* _flonum->fixnum */
obj_t BGl__flonumzd2ze3fixnumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1985, obj_t BgL_xz00_1986)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 198 */
{ /* ./Ieee/number.scm 199 */
long BgL_auxz00_2750;
{ /* ./Ieee/number.scm 199 */
long BgL_res6062z00_2587;
{ /* ./Ieee/number.scm 199 */
double BgL_xz00_2584;
{ /* ./Ieee/number.scm 199 */
obj_t BgL_auxz00_2751;
if(
REALP(BgL_xz00_1986))
{ /* ./Ieee/number.scm 199 */
BgL_auxz00_2751 = BgL_xz00_1986
; }  else 
{ /* ./Ieee/number.scm 199 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5954z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_1986, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)8441))); 
exit( -1 );} 
BgL_xz00_2584 = 
REAL_TO_DOUBLE(BgL_auxz00_2751); } 
{ /* ./Ieee/number.scm 199 */
obj_t BgL_symbol2534z00_2585;
BgL_symbol2534z00_2585 = BGl_symbol5953z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 199 */

PUSH_TRACE(BgL_symbol2534z00_2585); BUNSPEC; 
{ /* ./Ieee/number.scm 199 */
long BgL_aux2533z00_2586;
BgL_aux2533z00_2586 = 
(long)(BgL_xz00_2584); 
POP_TRACE(); 
BgL_res6062z00_2587 = BgL_aux2533z00_2586; } } } } 
BgL_auxz00_2750 = BgL_res6062z00_2587; } 
return 
BINT(BgL_auxz00_2750);} } 
}



/* fixnum->flonum */
BGL_EXPORTED_DEF double BGl_fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00(long BgL_xz00_7)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 204 */
{ /* ./Ieee/number.scm 205 */
obj_t BgL_symbol2538z00_2588;
BgL_symbol2538z00_2588 = BGl_symbol5957z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 205 */

PUSH_TRACE(BgL_symbol2538z00_2588); BUNSPEC; 
{ /* ./Ieee/number.scm 205 */
double BgL_aux2537z00_2589;
BgL_aux2537z00_2589 = 
(double)(BgL_xz00_7); 
POP_TRACE(); 
return BgL_aux2537z00_2589;} } } } 
}



/* _fixnum->flonum */
obj_t BGl__fixnumzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1987, obj_t BgL_xz00_1988)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 204 */
{ /* ./Ieee/number.scm 205 */
double BgL_auxz00_2765;
{ /* ./Ieee/number.scm 205 */
double BgL_res6063z00_2593;
{ /* ./Ieee/number.scm 205 */
long BgL_xz00_2590;
{ /* ./Ieee/number.scm 205 */
obj_t BgL_auxz00_2766;
if(
INTEGERP(BgL_xz00_1988))
{ /* ./Ieee/number.scm 205 */
BgL_auxz00_2766 = BgL_xz00_1988
; }  else 
{ /* ./Ieee/number.scm 205 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5958z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_1988, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)8723))); 
exit( -1 );} 
BgL_xz00_2590 = 
(long)CINT(BgL_auxz00_2766); } 
{ /* ./Ieee/number.scm 205 */
obj_t BgL_symbol2538z00_2591;
BgL_symbol2538z00_2591 = BGl_symbol5957z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 205 */

PUSH_TRACE(BgL_symbol2538z00_2591); BUNSPEC; 
{ /* ./Ieee/number.scm 205 */
double BgL_aux2537z00_2592;
BgL_aux2537z00_2592 = 
(double)(BgL_xz00_2590); 
POP_TRACE(); 
BgL_res6063z00_2593 = BgL_aux2537z00_2592; } } } } 
BgL_auxz00_2765 = BgL_res6063z00_2593; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2765);} } 
}



/* flonum->elong */
BGL_EXPORTED_DEF long BGl_flonumzd2ze3elongz31zz__r4_numbers_6_5z00(double BgL_xz00_8)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 210 */
{ /* ./Ieee/number.scm 211 */
obj_t BgL_symbol2542z00_2594;
BgL_symbol2542z00_2594 = BGl_symbol5960z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 211 */

PUSH_TRACE(BgL_symbol2542z00_2594); BUNSPEC; 
{ /* ./Ieee/number.scm 211 */
long BgL_aux2541z00_2595;
BgL_aux2541z00_2595 = 
(long)(BgL_xz00_8); 
POP_TRACE(); 
return BgL_aux2541z00_2595;} } } } 
}



/* _flonum->elong */
obj_t BGl__flonumzd2ze3elongz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1989, obj_t BgL_xz00_1990)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 210 */
{ /* ./Ieee/number.scm 211 */
long BgL_auxz00_2780;
{ /* ./Ieee/number.scm 211 */
long BgL_res6064z00_2599;
{ /* ./Ieee/number.scm 211 */
double BgL_xz00_2596;
{ /* ./Ieee/number.scm 211 */
obj_t BgL_auxz00_2781;
if(
REALP(BgL_xz00_1990))
{ /* ./Ieee/number.scm 211 */
BgL_auxz00_2781 = BgL_xz00_1990
; }  else 
{ /* ./Ieee/number.scm 211 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5961z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_1990, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)9013))); 
exit( -1 );} 
BgL_xz00_2596 = 
REAL_TO_DOUBLE(BgL_auxz00_2781); } 
{ /* ./Ieee/number.scm 211 */
obj_t BgL_symbol2542z00_2597;
BgL_symbol2542z00_2597 = BGl_symbol5960z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 211 */

PUSH_TRACE(BgL_symbol2542z00_2597); BUNSPEC; 
{ /* ./Ieee/number.scm 211 */
long BgL_aux2541z00_2598;
BgL_aux2541z00_2598 = 
(long)(BgL_xz00_2596); 
POP_TRACE(); 
BgL_res6064z00_2599 = BgL_aux2541z00_2598; } } } } 
BgL_auxz00_2780 = BgL_res6064z00_2599; } 
return 
LONG_TO_BELONG(BgL_auxz00_2780);} } 
}



/* elong->flonum */
BGL_EXPORTED_DEF double BGl_elongzd2ze3flonumz31zz__r4_numbers_6_5z00(long BgL_xz00_9)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 216 */
{ /* ./Ieee/number.scm 217 */
obj_t BgL_symbol2546z00_2600;
BgL_symbol2546z00_2600 = BGl_symbol5962z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 217 */

PUSH_TRACE(BgL_symbol2546z00_2600); BUNSPEC; 
{ /* ./Ieee/number.scm 217 */
double BgL_aux2545z00_2601;
BgL_aux2545z00_2601 = 
(double)(BgL_xz00_9); 
POP_TRACE(); 
return BgL_aux2545z00_2601;} } } } 
}



/* _elong->flonum */
obj_t BGl__elongzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1991, obj_t BgL_xz00_1992)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 216 */
{ /* ./Ieee/number.scm 217 */
double BgL_auxz00_2795;
{ /* ./Ieee/number.scm 217 */
double BgL_res6065z00_2605;
{ /* ./Ieee/number.scm 217 */
long BgL_xz00_2602;
{ /* ./Ieee/number.scm 217 */
obj_t BgL_auxz00_2796;
if(
ELONGP(BgL_xz00_1992))
{ /* ./Ieee/number.scm 217 */
BgL_auxz00_2796 = BgL_xz00_1992
; }  else 
{ /* ./Ieee/number.scm 217 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5963z00zz__r4_numbers_6_5z00, BGl_string5964z00zz__r4_numbers_6_5z00, BgL_xz00_1992, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)9293))); 
exit( -1 );} 
BgL_xz00_2602 = 
BELONG_TO_LONG(BgL_auxz00_2796); } 
{ /* ./Ieee/number.scm 217 */
obj_t BgL_symbol2546z00_2603;
BgL_symbol2546z00_2603 = BGl_symbol5962z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 217 */

PUSH_TRACE(BgL_symbol2546z00_2603); BUNSPEC; 
{ /* ./Ieee/number.scm 217 */
double BgL_aux2545z00_2604;
BgL_aux2545z00_2604 = 
(double)(BgL_xz00_2602); 
POP_TRACE(); 
BgL_res6065z00_2605 = BgL_aux2545z00_2604; } } } } 
BgL_auxz00_2795 = BgL_res6065z00_2605; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2795);} } 
}



/* flonum->llong */
BGL_EXPORTED_DEF BGL_LONGLONG_T BGl_flonumzd2ze3llongz31zz__r4_numbers_6_5z00(double BgL_xz00_10)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 222 */
{ /* ./Ieee/number.scm 223 */
obj_t BgL_symbol2550z00_2606;
BgL_symbol2550z00_2606 = BGl_symbol5965z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 223 */

PUSH_TRACE(BgL_symbol2550z00_2606); BUNSPEC; 
{ /* ./Ieee/number.scm 223 */
BGL_LONGLONG_T BgL_aux2549z00_2607;
BgL_aux2549z00_2607 = 
DOUBLE_TO_LLONG(BgL_xz00_10); 
POP_TRACE(); 
return BgL_aux2549z00_2607;} } } } 
}



/* _flonum->llong */
obj_t BGl__flonumzd2ze3llongz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1993, obj_t BgL_xz00_1994)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 222 */
{ /* ./Ieee/number.scm 223 */
BGL_LONGLONG_T BgL_auxz00_2810;
{ /* ./Ieee/number.scm 223 */
BGL_LONGLONG_T BgL_res6066z00_2611;
{ /* ./Ieee/number.scm 223 */
double BgL_xz00_2608;
{ /* ./Ieee/number.scm 223 */
obj_t BgL_auxz00_2811;
if(
REALP(BgL_xz00_1994))
{ /* ./Ieee/number.scm 223 */
BgL_auxz00_2811 = BgL_xz00_1994
; }  else 
{ /* ./Ieee/number.scm 223 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5966z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_1994, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)9582))); 
exit( -1 );} 
BgL_xz00_2608 = 
REAL_TO_DOUBLE(BgL_auxz00_2811); } 
{ /* ./Ieee/number.scm 223 */
obj_t BgL_symbol2550z00_2609;
BgL_symbol2550z00_2609 = BGl_symbol5965z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 223 */

PUSH_TRACE(BgL_symbol2550z00_2609); BUNSPEC; 
{ /* ./Ieee/number.scm 223 */
BGL_LONGLONG_T BgL_aux2549z00_2610;
BgL_aux2549z00_2610 = 
DOUBLE_TO_LLONG(BgL_xz00_2608); 
POP_TRACE(); 
BgL_res6066z00_2611 = BgL_aux2549z00_2610; } } } } 
BgL_auxz00_2810 = BgL_res6066z00_2611; } 
return 
LLONG_TO_BLLONG(BgL_auxz00_2810);} } 
}



/* llong->flonum */
BGL_EXPORTED_DEF double BGl_llongzd2ze3flonumz31zz__r4_numbers_6_5z00(BGL_LONGLONG_T BgL_xz00_11)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 228 */
{ /* ./Ieee/number.scm 229 */
obj_t BgL_symbol2554z00_2612;
BgL_symbol2554z00_2612 = BGl_symbol5967z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 229 */

PUSH_TRACE(BgL_symbol2554z00_2612); BUNSPEC; 
{ /* ./Ieee/number.scm 229 */
double BgL_aux2553z00_2613;
BgL_aux2553z00_2613 = 
(double)(BgL_xz00_11); 
POP_TRACE(); 
return BgL_aux2553z00_2613;} } } } 
}



/* _llong->flonum */
obj_t BGl__llongzd2ze3flonumz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_1995, obj_t BgL_xz00_1996)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 228 */
{ /* ./Ieee/number.scm 229 */
double BgL_auxz00_2825;
{ /* ./Ieee/number.scm 229 */
double BgL_res6067z00_2617;
{ /* ./Ieee/number.scm 229 */
BGL_LONGLONG_T BgL_xz00_2614;
{ /* ./Ieee/number.scm 229 */
obj_t BgL_auxz00_2826;
if(
LLONGP(BgL_xz00_1996))
{ /* ./Ieee/number.scm 229 */
BgL_auxz00_2826 = BgL_xz00_1996
; }  else 
{ /* ./Ieee/number.scm 229 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5968z00zz__r4_numbers_6_5z00, BGl_string5969z00zz__r4_numbers_6_5z00, BgL_xz00_1996, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)9862))); 
exit( -1 );} 
BgL_xz00_2614 = 
BLLONG_TO_LLONG(BgL_auxz00_2826); } 
{ /* ./Ieee/number.scm 229 */
obj_t BgL_symbol2554z00_2615;
BgL_symbol2554z00_2615 = BGl_symbol5967z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 229 */

PUSH_TRACE(BgL_symbol2554z00_2615); BUNSPEC; 
{ /* ./Ieee/number.scm 229 */
double BgL_aux2553z00_2616;
BgL_aux2553z00_2616 = 
(double)(BgL_xz00_2614); 
POP_TRACE(); 
BgL_res6067z00_2617 = BgL_aux2553z00_2616; } } } } 
BgL_auxz00_2825 = BgL_res6067z00_2617; } 
return 
DOUBLE_TO_REAL(BgL_auxz00_2825);} } 
}



/* 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 */
{ /* ./Ieee/number.scm 236 */
obj_t BgL_symbol2558z00_1889;
BgL_symbol2558z00_1889 = BGl_symbol5970z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 236 */

PUSH_TRACE(BgL_symbol2558z00_1889); BUNSPEC; 
{ /* ./Ieee/number.scm 236 */
bool_t BgL_aux2557z00_1890;
{ /* ./Ieee/number.scm 236 */
bool_t BgL_test1025z00_360;
BgL_test1025z00_360 = 
INTEGERP(BgL_xz00_12); 
if(BgL_test1025z00_360)
{ /* ./Ieee/number.scm 236 */
{ /* ./Ieee/number.scm 238 */
bool_t BgL_test1026z00_361;
BgL_test1026z00_361 = 
INTEGERP(BgL_yz00_13); 
if(BgL_test1026z00_361)
{ /* ./Ieee/number.scm 238 */
{ /* ./Ieee/number.scm 239 */
long BgL_n1z00_868;long BgL_n2z00_869;
{ /* ./Ieee/number.scm 239 */
obj_t BgL_auxz00_2842;
if(BgL_test1025z00_360)
{ /* ./Ieee/number.scm 239 */
BgL_auxz00_2842 = BgL_xz00_12
; }  else 
{ /* ./Ieee/number.scm 239 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_12, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10198))); 
exit( -1 );} 
BgL_n1z00_868 = 
(long)CINT(BgL_auxz00_2842); } 
{ /* ./Ieee/number.scm 239 */
obj_t BgL_auxz00_2848;
if(BgL_test1026z00_361)
{ /* ./Ieee/number.scm 239 */
BgL_auxz00_2848 = BgL_yz00_13
; }  else 
{ /* ./Ieee/number.scm 239 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_13, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10200))); 
exit( -1 );} 
BgL_n2z00_869 = 
(long)CINT(BgL_auxz00_2848); } 
BgL_aux2557z00_1890 = 
(BgL_n1z00_868==BgL_n2z00_869); } }  else 
{ /* ./Ieee/number.scm 238 */
if(
REALP(BgL_yz00_13))
{ /* ./Ieee/number.scm 240 */
{ /* ./Ieee/number.scm 241 */
double BgL_arg1030z00_363;
{ /* ./Ieee/number.scm 241 */
long BgL_xz00_871;
{ /* ./Ieee/number.scm 241 */
obj_t BgL_auxz00_2857;
if(BgL_test1025z00_360)
{ /* ./Ieee/number.scm 241 */
BgL_auxz00_2857 = BgL_xz00_12
; }  else 
{ /* ./Ieee/number.scm 241 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_12, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10245))); 
exit( -1 );} 
BgL_xz00_871 = 
(long)CINT(BgL_auxz00_2857); } 
BgL_arg1030z00_363 = 
(double)(BgL_xz00_871); } 
{ /* ./Ieee/number.scm 241 */
double BgL_r2z00_873;
{ /* ./Ieee/number.scm 241 */
obj_t BgL_auxz00_2864;
if(
REALP(BgL_yz00_13))
{ /* ./Ieee/number.scm 241 */
BgL_auxz00_2864 = BgL_yz00_13
; }  else 
{ /* ./Ieee/number.scm 241 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_13, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10248))); 
exit( -1 );} 
BgL_r2z00_873 = 
REAL_TO_DOUBLE(BgL_auxz00_2864); } 
BgL_aux2557z00_1890 = 
(BgL_arg1030z00_363==BgL_r2z00_873); } } }  else 
{ /* ./Ieee/number.scm 240 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5971z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_13, "./Ieee/number.scm", ((long)10265)); 
{ /* ./Ieee/number.scm 243 */
obj_t BgL_auxz00_2873;
BgL_auxz00_2873 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10265))); 
BgL_aux2557z00_1890 = 
CBOOL(BgL_auxz00_2873); } } } } }  else 
{ /* ./Ieee/number.scm 244 */
bool_t BgL_test1037z00_364;
BgL_test1037z00_364 = 
REALP(BgL_xz00_12); 
if(BgL_test1037z00_364)
{ /* ./Ieee/number.scm 244 */
{ /* ./Ieee/number.scm 246 */
bool_t BgL_test1038z00_365;
BgL_test1038z00_365 = 
REALP(BgL_yz00_13); 
if(BgL_test1038z00_365)
{ /* ./Ieee/number.scm 246 */
{ /* ./Ieee/number.scm 247 */
double BgL_r1z00_879;double BgL_r2z00_880;
{ /* ./Ieee/number.scm 247 */
obj_t BgL_auxz00_2881;
if(BgL_test1037z00_364)
{ /* ./Ieee/number.scm 247 */
BgL_auxz00_2881 = BgL_xz00_12
; }  else 
{ /* ./Ieee/number.scm 247 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_12, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10354))); 
exit( -1 );} 
BgL_r1z00_879 = 
REAL_TO_DOUBLE(BgL_auxz00_2881); } 
{ /* ./Ieee/number.scm 247 */
obj_t BgL_auxz00_2887;
if(BgL_test1038z00_365)
{ /* ./Ieee/number.scm 247 */
BgL_auxz00_2887 = BgL_yz00_13
; }  else 
{ /* ./Ieee/number.scm 247 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_13, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10356))); 
exit( -1 );} 
BgL_r2z00_880 = 
REAL_TO_DOUBLE(BgL_auxz00_2887); } 
BgL_aux2557z00_1890 = 
(BgL_r1z00_879==BgL_r2z00_880); } }  else 
{ /* ./Ieee/number.scm 248 */
bool_t BgL_test1040z00_366;
BgL_test1040z00_366 = 
INTEGERP(BgL_yz00_13); 
if(BgL_test1040z00_366)
{ /* ./Ieee/number.scm 248 */
{ /* ./Ieee/number.scm 249 */
double BgL_arg1042z00_367;
{ /* ./Ieee/number.scm 249 */
long BgL_xz00_882;
{ /* ./Ieee/number.scm 249 */
obj_t BgL_auxz00_2896;
if(BgL_test1040z00_366)
{ /* ./Ieee/number.scm 249 */
BgL_auxz00_2896 = BgL_yz00_13
; }  else 
{ /* ./Ieee/number.scm 249 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_13, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10403))); 
exit( -1 );} 
BgL_xz00_882 = 
(long)CINT(BgL_auxz00_2896); } 
BgL_arg1042z00_367 = 
(double)(BgL_xz00_882); } 
{ /* ./Ieee/number.scm 249 */
double BgL_r1z00_883;
{ /* ./Ieee/number.scm 249 */
obj_t BgL_auxz00_2903;
if(
REALP(BgL_xz00_12))
{ /* ./Ieee/number.scm 249 */
BgL_auxz00_2903 = BgL_xz00_12
; }  else 
{ /* ./Ieee/number.scm 249 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5970z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_12, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10385))); 
exit( -1 );} 
BgL_r1z00_883 = 
REAL_TO_DOUBLE(BgL_auxz00_2903); } 
BgL_aux2557z00_1890 = 
(BgL_r1z00_883==BgL_arg1042z00_367); } } }  else 
{ /* ./Ieee/number.scm 248 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5971z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_13, "./Ieee/number.scm", ((long)10421)); 
{ /* ./Ieee/number.scm 251 */
obj_t BgL_auxz00_2912;
BgL_auxz00_2912 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10421))); 
BgL_aux2557z00_1890 = 
CBOOL(BgL_auxz00_2912); } } } } }  else 
{ /* ./Ieee/number.scm 244 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5971z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_12, "./Ieee/number.scm", ((long)10472)); 
{ /* ./Ieee/number.scm 253 */
obj_t BgL_auxz00_2917;
BgL_auxz00_2917 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10472))); 
BgL_aux2557z00_1890 = 
CBOOL(BgL_auxz00_2917); } } } } 
POP_TRACE(); 
return BgL_aux2557z00_1890;} } } } 
}



/* _2= */
obj_t BGl__2zd3zd3zz__r4_numbers_6_5z00(obj_t BgL_envz00_1997, obj_t BgL_xz00_1998, obj_t BgL_yz00_1999)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 234 */
{ /* ./Ieee/number.scm 236 */
bool_t BgL_auxz00_2922;
BgL_auxz00_2922 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_1998, BgL_yz00_1999); 
return 
BBOOL(BgL_auxz00_2922);} } 
}



/* = */
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 */
{ /* ./Ieee/number.scm 264 */
obj_t BgL_symbol2562z00_1891;
BgL_symbol2562z00_1891 = BGl_symbol5973z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 264 */

PUSH_TRACE(BgL_symbol2562z00_1891); BUNSPEC; 
{ /* ./Ieee/number.scm 264 */
bool_t BgL_aux2561z00_1892;
{ 
obj_t BgL_xz00_370;obj_t BgL_za7za7_371;
if(
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_14, BgL_yz00_15))
{ /* ./Ieee/number.scm 265 */
BgL_xz00_370 = BgL_yz00_15; 
BgL_za7za7_371 = BgL_za7za7_16; 
BgL_zc3anonymousza31055za3ieeezf2numberze2scmza3265ze3z93_372:
if(
NULLP(BgL_za7za7_371))
{ /* ./Ieee/number.scm 261 */
BgL_aux2561z00_1892 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 262 */
bool_t BgL_test1057z00_374;
{ /* ./Ieee/number.scm 262 */
obj_t BgL_arg1064z00_376;
{ /* ./Ieee/number.scm 262 */
obj_t BgL_pairz00_892;
if(
PAIRP(BgL_za7za7_371))
{ /* ./Ieee/number.scm 262 */
BgL_pairz00_892 = BgL_za7za7_371; }  else 
{ /* ./Ieee/number.scm 262 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5973z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_371, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10825))); 
exit( -1 );} 
BgL_arg1064z00_376 = 
CAR(BgL_pairz00_892); } 
BgL_test1057z00_374 = 
BGl_2zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_370, BgL_arg1064z00_376); } 
if(BgL_test1057z00_374)
{ /* ./Ieee/number.scm 262 */
{ /* ./Ieee/number.scm 263 */
obj_t BgL_arg1059z00_375;
{ /* ./Ieee/number.scm 263 */
obj_t BgL_pairz00_893;
if(
PAIRP(BgL_za7za7_371))
{ /* ./Ieee/number.scm 263 */
BgL_pairz00_893 = BgL_za7za7_371; }  else 
{ /* ./Ieee/number.scm 263 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5973z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_371, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)10846))); 
exit( -1 );} 
BgL_arg1059z00_375 = 
CDR(BgL_pairz00_893); } 
{ 
obj_t BgL_za7za7_2944;
BgL_za7za7_2944 = BgL_arg1059z00_375; 
BgL_za7za7_371 = BgL_za7za7_2944; 
goto BgL_zc3anonymousza31055za3ieeezf2numberze2scmza3265ze3z93_372;} } }  else 
{ /* ./Ieee/number.scm 262 */
BgL_aux2561z00_1892 = ((bool_t)0); } } }  else 
{ /* ./Ieee/number.scm 265 */
BgL_aux2561z00_1892 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2561z00_1892;} } } } 
}



/* _= */
obj_t BGl__zd3zd3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2000, obj_t BgL_xz00_2001, obj_t BgL_yz00_2002, obj_t BgL_za7za7_2003)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 258 */
{ /* ./Ieee/number.scm 264 */
bool_t BgL_auxz00_2946;
BgL_auxz00_2946 = 
BGl_zd3zd3zz__r4_numbers_6_5z00(BgL_xz00_2001, BgL_yz00_2002, BgL_za7za7_2003); 
return 
BBOOL(BgL_auxz00_2946);} } 
}



/* 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 */
{ /* ./Ieee/number.scm 273 */
obj_t BgL_symbol2566z00_1893;
BgL_symbol2566z00_1893 = BGl_symbol5975z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 273 */

PUSH_TRACE(BgL_symbol2566z00_1893); BUNSPEC; 
{ /* ./Ieee/number.scm 273 */
bool_t BgL_aux2565z00_1894;
{ /* ./Ieee/number.scm 273 */
bool_t BgL_test1068z00_378;
BgL_test1068z00_378 = 
INTEGERP(BgL_xz00_17); 
if(BgL_test1068z00_378)
{ /* ./Ieee/number.scm 273 */
{ /* ./Ieee/number.scm 275 */
bool_t BgL_test1069z00_379;
BgL_test1069z00_379 = 
INTEGERP(BgL_yz00_18); 
if(BgL_test1069z00_379)
{ /* ./Ieee/number.scm 275 */
{ /* ./Ieee/number.scm 276 */
long BgL_n1z00_896;long BgL_n2z00_897;
{ /* ./Ieee/number.scm 276 */
obj_t BgL_auxz00_2954;
if(BgL_test1068z00_378)
{ /* ./Ieee/number.scm 276 */
BgL_auxz00_2954 = BgL_xz00_17
; }  else 
{ /* ./Ieee/number.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_17, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11210))); 
exit( -1 );} 
BgL_n1z00_896 = 
(long)CINT(BgL_auxz00_2954); } 
{ /* ./Ieee/number.scm 276 */
obj_t BgL_auxz00_2960;
if(BgL_test1069z00_379)
{ /* ./Ieee/number.scm 276 */
BgL_auxz00_2960 = BgL_yz00_18
; }  else 
{ /* ./Ieee/number.scm 276 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_18, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11212))); 
exit( -1 );} 
BgL_n2z00_897 = 
(long)CINT(BgL_auxz00_2960); } 
BgL_aux2565z00_1894 = 
(BgL_n1z00_896<BgL_n2z00_897); } }  else 
{ /* ./Ieee/number.scm 275 */
if(
REALP(BgL_yz00_18))
{ /* ./Ieee/number.scm 277 */
{ /* ./Ieee/number.scm 278 */
double BgL_arg1073z00_381;
{ /* ./Ieee/number.scm 278 */
long BgL_xz00_899;
{ /* ./Ieee/number.scm 278 */
obj_t BgL_auxz00_2969;
if(BgL_test1068z00_378)
{ /* ./Ieee/number.scm 278 */
BgL_auxz00_2969 = BgL_xz00_17
; }  else 
{ /* ./Ieee/number.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_17, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11257))); 
exit( -1 );} 
BgL_xz00_899 = 
(long)CINT(BgL_auxz00_2969); } 
BgL_arg1073z00_381 = 
(double)(BgL_xz00_899); } 
{ /* ./Ieee/number.scm 278 */
double BgL_r2z00_901;
{ /* ./Ieee/number.scm 278 */
obj_t BgL_auxz00_2976;
if(
REALP(BgL_yz00_18))
{ /* ./Ieee/number.scm 278 */
BgL_auxz00_2976 = BgL_yz00_18
; }  else 
{ /* ./Ieee/number.scm 278 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_18, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11260))); 
exit( -1 );} 
BgL_r2z00_901 = 
REAL_TO_DOUBLE(BgL_auxz00_2976); } 
BgL_aux2565z00_1894 = 
(BgL_arg1073z00_381<BgL_r2z00_901); } } }  else 
{ /* ./Ieee/number.scm 277 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5976z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_18, "./Ieee/number.scm", ((long)11277)); 
{ /* ./Ieee/number.scm 280 */
obj_t BgL_auxz00_2985;
BgL_auxz00_2985 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11277))); 
BgL_aux2565z00_1894 = 
CBOOL(BgL_auxz00_2985); } } } } }  else 
{ /* ./Ieee/number.scm 281 */
bool_t BgL_test1080z00_382;
BgL_test1080z00_382 = 
REALP(BgL_xz00_17); 
if(BgL_test1080z00_382)
{ /* ./Ieee/number.scm 281 */
{ /* ./Ieee/number.scm 283 */
bool_t BgL_test1081z00_383;
BgL_test1081z00_383 = 
REALP(BgL_yz00_18); 
if(BgL_test1081z00_383)
{ /* ./Ieee/number.scm 283 */
{ /* ./Ieee/number.scm 284 */
double BgL_r1z00_907;double BgL_r2z00_908;
{ /* ./Ieee/number.scm 284 */
obj_t BgL_auxz00_2993;
if(BgL_test1080z00_382)
{ /* ./Ieee/number.scm 284 */
BgL_auxz00_2993 = BgL_xz00_17
; }  else 
{ /* ./Ieee/number.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_17, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11366))); 
exit( -1 );} 
BgL_r1z00_907 = 
REAL_TO_DOUBLE(BgL_auxz00_2993); } 
{ /* ./Ieee/number.scm 284 */
obj_t BgL_auxz00_2999;
if(BgL_test1081z00_383)
{ /* ./Ieee/number.scm 284 */
BgL_auxz00_2999 = BgL_yz00_18
; }  else 
{ /* ./Ieee/number.scm 284 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_18, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11368))); 
exit( -1 );} 
BgL_r2z00_908 = 
REAL_TO_DOUBLE(BgL_auxz00_2999); } 
BgL_aux2565z00_1894 = 
(BgL_r1z00_907<BgL_r2z00_908); } }  else 
{ /* ./Ieee/number.scm 285 */
bool_t BgL_test1083z00_384;
BgL_test1083z00_384 = 
INTEGERP(BgL_yz00_18); 
if(BgL_test1083z00_384)
{ /* ./Ieee/number.scm 285 */
{ /* ./Ieee/number.scm 286 */
double BgL_arg1085z00_385;
{ /* ./Ieee/number.scm 286 */
long BgL_xz00_910;
{ /* ./Ieee/number.scm 286 */
obj_t BgL_auxz00_3008;
if(BgL_test1083z00_384)
{ /* ./Ieee/number.scm 286 */
BgL_auxz00_3008 = BgL_yz00_18
; }  else 
{ /* ./Ieee/number.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_18, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11415))); 
exit( -1 );} 
BgL_xz00_910 = 
(long)CINT(BgL_auxz00_3008); } 
BgL_arg1085z00_385 = 
(double)(BgL_xz00_910); } 
{ /* ./Ieee/number.scm 286 */
double BgL_r1z00_911;
{ /* ./Ieee/number.scm 286 */
obj_t BgL_auxz00_3015;
if(
REALP(BgL_xz00_17))
{ /* ./Ieee/number.scm 286 */
BgL_auxz00_3015 = BgL_xz00_17
; }  else 
{ /* ./Ieee/number.scm 286 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5975z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_17, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11397))); 
exit( -1 );} 
BgL_r1z00_911 = 
REAL_TO_DOUBLE(BgL_auxz00_3015); } 
BgL_aux2565z00_1894 = 
(BgL_r1z00_911<BgL_arg1085z00_385); } } }  else 
{ /* ./Ieee/number.scm 285 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5976z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_18, "./Ieee/number.scm", ((long)11433)); 
{ /* ./Ieee/number.scm 288 */
obj_t BgL_auxz00_3024;
BgL_auxz00_3024 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11433))); 
BgL_aux2565z00_1894 = 
CBOOL(BgL_auxz00_3024); } } } } }  else 
{ /* ./Ieee/number.scm 281 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5976z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_17, "./Ieee/number.scm", ((long)11484)); 
{ /* ./Ieee/number.scm 290 */
obj_t BgL_auxz00_3029;
BgL_auxz00_3029 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11484))); 
BgL_aux2565z00_1894 = 
CBOOL(BgL_auxz00_3029); } } } } 
POP_TRACE(); 
return BgL_aux2565z00_1894;} } } } 
}



/* _2< */
obj_t BGl__2zc3zc3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2004, obj_t BgL_xz00_2005, obj_t BgL_yz00_2006)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 271 */
{ /* ./Ieee/number.scm 273 */
bool_t BgL_auxz00_3034;
BgL_auxz00_3034 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_2005, BgL_yz00_2006); 
return 
BBOOL(BgL_auxz00_3034);} } 
}



/* < */
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 */
{ /* ./Ieee/number.scm 301 */
obj_t BgL_symbol2570z00_1895;
BgL_symbol2570z00_1895 = BGl_symbol5977z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 301 */

PUSH_TRACE(BgL_symbol2570z00_1895); BUNSPEC; 
{ /* ./Ieee/number.scm 301 */
bool_t BgL_aux2569z00_1896;
{ 
obj_t BgL_xz00_388;obj_t BgL_za7za7_389;
if(
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_19, BgL_yz00_20))
{ /* ./Ieee/number.scm 302 */
BgL_xz00_388 = BgL_yz00_20; 
BgL_za7za7_389 = BgL_za7za7_21; 
BgL_zc3anonymousza31098za3ieeezf2numberze2scmza3302ze3z93_390:
if(
NULLP(BgL_za7za7_389))
{ /* ./Ieee/number.scm 298 */
BgL_aux2569z00_1896 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 299 */
bool_t BgL_test1100z00_392;
{ /* ./Ieee/number.scm 299 */
obj_t BgL_arg1108z00_395;
{ /* ./Ieee/number.scm 299 */
obj_t BgL_pairz00_920;
if(
PAIRP(BgL_za7za7_389))
{ /* ./Ieee/number.scm 299 */
BgL_pairz00_920 = BgL_za7za7_389; }  else 
{ /* ./Ieee/number.scm 299 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5977z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_389, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11837))); 
exit( -1 );} 
BgL_arg1108z00_395 = 
CAR(BgL_pairz00_920); } 
BgL_test1100z00_392 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_388, BgL_arg1108z00_395); } 
if(BgL_test1100z00_392)
{ /* ./Ieee/number.scm 299 */
{ /* ./Ieee/number.scm 300 */
obj_t BgL_arg1102z00_393;obj_t BgL_arg1103z00_394;
{ /* ./Ieee/number.scm 300 */
obj_t BgL_pairz00_921;
if(
PAIRP(BgL_za7za7_389))
{ /* ./Ieee/number.scm 300 */
BgL_pairz00_921 = BgL_za7za7_389; }  else 
{ /* ./Ieee/number.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5977z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_389, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11856))); 
exit( -1 );} 
BgL_arg1102z00_393 = 
CAR(BgL_pairz00_921); } 
{ /* ./Ieee/number.scm 300 */
obj_t BgL_pairz00_922;
if(
PAIRP(BgL_za7za7_389))
{ /* ./Ieee/number.scm 300 */
BgL_pairz00_922 = BgL_za7za7_389; }  else 
{ /* ./Ieee/number.scm 300 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5977z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_389, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)11864))); 
exit( -1 );} 
BgL_arg1103z00_394 = 
CDR(BgL_pairz00_922); } 
{ 
obj_t BgL_za7za7_3063;obj_t BgL_xz00_3062;
BgL_xz00_3062 = BgL_arg1102z00_393; 
BgL_za7za7_3063 = BgL_arg1103z00_394; 
BgL_za7za7_389 = BgL_za7za7_3063; 
BgL_xz00_388 = BgL_xz00_3062; 
goto BgL_zc3anonymousza31098za3ieeezf2numberze2scmza3302ze3z93_390;} } }  else 
{ /* ./Ieee/number.scm 299 */
BgL_aux2569z00_1896 = ((bool_t)0); } } }  else 
{ /* ./Ieee/number.scm 302 */
BgL_aux2569z00_1896 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2569z00_1896;} } } } 
}



/* _< */
obj_t BGl__zc3zc3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2007, obj_t BgL_xz00_2008, obj_t BgL_yz00_2009, obj_t BgL_za7za7_2010)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 295 */
{ /* ./Ieee/number.scm 301 */
bool_t BgL_auxz00_3065;
BgL_auxz00_3065 = 
BGl_zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_2008, BgL_yz00_2009, BgL_za7za7_2010); 
return 
BBOOL(BgL_auxz00_3065);} } 
}



/* 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 */
{ /* ./Ieee/number.scm 311 */
obj_t BgL_symbol2574z00_1897;
BgL_symbol2574z00_1897 = BGl_symbol5978z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 311 */

PUSH_TRACE(BgL_symbol2574z00_1897); BUNSPEC; 
{ /* ./Ieee/number.scm 311 */
bool_t BgL_aux2573z00_1898;
{ /* ./Ieee/number.scm 311 */
bool_t BgL_test1112z00_397;
BgL_test1112z00_397 = 
INTEGERP(BgL_xz00_22); 
if(BgL_test1112z00_397)
{ /* ./Ieee/number.scm 311 */
{ /* ./Ieee/number.scm 313 */
bool_t BgL_test1113z00_398;
BgL_test1113z00_398 = 
INTEGERP(BgL_yz00_23); 
if(BgL_test1113z00_398)
{ /* ./Ieee/number.scm 313 */
{ /* ./Ieee/number.scm 314 */
long BgL_n1z00_925;long BgL_n2z00_926;
{ /* ./Ieee/number.scm 314 */
obj_t BgL_auxz00_3073;
if(BgL_test1112z00_397)
{ /* ./Ieee/number.scm 314 */
BgL_auxz00_3073 = BgL_xz00_22
; }  else 
{ /* ./Ieee/number.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_22, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12232))); 
exit( -1 );} 
BgL_n1z00_925 = 
(long)CINT(BgL_auxz00_3073); } 
{ /* ./Ieee/number.scm 314 */
obj_t BgL_auxz00_3079;
if(BgL_test1113z00_398)
{ /* ./Ieee/number.scm 314 */
BgL_auxz00_3079 = BgL_yz00_23
; }  else 
{ /* ./Ieee/number.scm 314 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_23, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12234))); 
exit( -1 );} 
BgL_n2z00_926 = 
(long)CINT(BgL_auxz00_3079); } 
BgL_aux2573z00_1898 = 
(BgL_n1z00_925>BgL_n2z00_926); } }  else 
{ /* ./Ieee/number.scm 313 */
if(
REALP(BgL_yz00_23))
{ /* ./Ieee/number.scm 315 */
{ /* ./Ieee/number.scm 316 */
double BgL_arg1117z00_400;
{ /* ./Ieee/number.scm 316 */
long BgL_xz00_928;
{ /* ./Ieee/number.scm 316 */
obj_t BgL_auxz00_3088;
if(BgL_test1112z00_397)
{ /* ./Ieee/number.scm 316 */
BgL_auxz00_3088 = BgL_xz00_22
; }  else 
{ /* ./Ieee/number.scm 316 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_22, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12279))); 
exit( -1 );} 
BgL_xz00_928 = 
(long)CINT(BgL_auxz00_3088); } 
BgL_arg1117z00_400 = 
(double)(BgL_xz00_928); } 
{ /* ./Ieee/number.scm 316 */
double BgL_r2z00_930;
{ /* ./Ieee/number.scm 316 */
obj_t BgL_auxz00_3095;
if(
REALP(BgL_yz00_23))
{ /* ./Ieee/number.scm 316 */
BgL_auxz00_3095 = BgL_yz00_23
; }  else 
{ /* ./Ieee/number.scm 316 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_23, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12282))); 
exit( -1 );} 
BgL_r2z00_930 = 
REAL_TO_DOUBLE(BgL_auxz00_3095); } 
BgL_aux2573z00_1898 = 
(BgL_arg1117z00_400>BgL_r2z00_930); } } }  else 
{ /* ./Ieee/number.scm 315 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5979z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_23, "./Ieee/number.scm", ((long)12299)); 
{ /* ./Ieee/number.scm 318 */
obj_t BgL_auxz00_3104;
BgL_auxz00_3104 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12299))); 
BgL_aux2573z00_1898 = 
CBOOL(BgL_auxz00_3104); } } } } }  else 
{ /* ./Ieee/number.scm 319 */
bool_t BgL_test1124z00_401;
BgL_test1124z00_401 = 
REALP(BgL_xz00_22); 
if(BgL_test1124z00_401)
{ /* ./Ieee/number.scm 319 */
{ /* ./Ieee/number.scm 321 */
bool_t BgL_test1125z00_402;
BgL_test1125z00_402 = 
REALP(BgL_yz00_23); 
if(BgL_test1125z00_402)
{ /* ./Ieee/number.scm 321 */
{ /* ./Ieee/number.scm 322 */
double BgL_r1z00_936;double BgL_r2z00_937;
{ /* ./Ieee/number.scm 322 */
obj_t BgL_auxz00_3112;
if(BgL_test1124z00_401)
{ /* ./Ieee/number.scm 322 */
BgL_auxz00_3112 = BgL_xz00_22
; }  else 
{ /* ./Ieee/number.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_22, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12388))); 
exit( -1 );} 
BgL_r1z00_936 = 
REAL_TO_DOUBLE(BgL_auxz00_3112); } 
{ /* ./Ieee/number.scm 322 */
obj_t BgL_auxz00_3118;
if(BgL_test1125z00_402)
{ /* ./Ieee/number.scm 322 */
BgL_auxz00_3118 = BgL_yz00_23
; }  else 
{ /* ./Ieee/number.scm 322 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_23, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12390))); 
exit( -1 );} 
BgL_r2z00_937 = 
REAL_TO_DOUBLE(BgL_auxz00_3118); } 
BgL_aux2573z00_1898 = 
(BgL_r1z00_936>BgL_r2z00_937); } }  else 
{ /* ./Ieee/number.scm 323 */
bool_t BgL_test1127z00_403;
BgL_test1127z00_403 = 
INTEGERP(BgL_yz00_23); 
if(BgL_test1127z00_403)
{ /* ./Ieee/number.scm 323 */
{ /* ./Ieee/number.scm 324 */
double BgL_arg1130z00_404;
{ /* ./Ieee/number.scm 324 */
long BgL_xz00_939;
{ /* ./Ieee/number.scm 324 */
obj_t BgL_auxz00_3127;
if(BgL_test1127z00_403)
{ /* ./Ieee/number.scm 324 */
BgL_auxz00_3127 = BgL_yz00_23
; }  else 
{ /* ./Ieee/number.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_23, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12437))); 
exit( -1 );} 
BgL_xz00_939 = 
(long)CINT(BgL_auxz00_3127); } 
BgL_arg1130z00_404 = 
(double)(BgL_xz00_939); } 
{ /* ./Ieee/number.scm 324 */
double BgL_r1z00_940;
{ /* ./Ieee/number.scm 324 */
obj_t BgL_auxz00_3134;
if(
REALP(BgL_xz00_22))
{ /* ./Ieee/number.scm 324 */
BgL_auxz00_3134 = BgL_xz00_22
; }  else 
{ /* ./Ieee/number.scm 324 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5978z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_22, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12419))); 
exit( -1 );} 
BgL_r1z00_940 = 
REAL_TO_DOUBLE(BgL_auxz00_3134); } 
BgL_aux2573z00_1898 = 
(BgL_r1z00_940>BgL_arg1130z00_404); } } }  else 
{ /* ./Ieee/number.scm 323 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5979z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_23, "./Ieee/number.scm", ((long)12455)); 
{ /* ./Ieee/number.scm 326 */
obj_t BgL_auxz00_3143;
BgL_auxz00_3143 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12455))); 
BgL_aux2573z00_1898 = 
CBOOL(BgL_auxz00_3143); } } } } }  else 
{ /* ./Ieee/number.scm 319 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5979z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_22, "./Ieee/number.scm", ((long)12506)); 
{ /* ./Ieee/number.scm 328 */
obj_t BgL_auxz00_3148;
BgL_auxz00_3148 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12506))); 
BgL_aux2573z00_1898 = 
CBOOL(BgL_auxz00_3148); } } } } 
POP_TRACE(); 
return BgL_aux2573z00_1898;} } } } 
}



/* _2> */
obj_t BGl__2ze3ze3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2011, obj_t BgL_xz00_2012, obj_t BgL_yz00_2013)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 309 */
{ /* ./Ieee/number.scm 311 */
bool_t BgL_auxz00_3153;
BgL_auxz00_3153 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_2012, BgL_yz00_2013); 
return 
BBOOL(BgL_auxz00_3153);} } 
}



/* > */
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 */
{ /* ./Ieee/number.scm 339 */
obj_t BgL_symbol2578z00_1899;
BgL_symbol2578z00_1899 = BGl_symbol5980z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 339 */

PUSH_TRACE(BgL_symbol2578z00_1899); BUNSPEC; 
{ /* ./Ieee/number.scm 339 */
bool_t BgL_aux2577z00_1900;
{ 
obj_t BgL_xz00_407;obj_t BgL_za7za7_408;
if(
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_24, BgL_yz00_25))
{ /* ./Ieee/number.scm 340 */
BgL_xz00_407 = BgL_yz00_25; 
BgL_za7za7_408 = BgL_za7za7_26; 
BgL_zc3anonymousza31143za3ieeezf2numberze2scmza3340ze3z93_409:
if(
NULLP(BgL_za7za7_408))
{ /* ./Ieee/number.scm 336 */
BgL_aux2577z00_1900 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 337 */
bool_t BgL_test1145z00_411;
{ /* ./Ieee/number.scm 337 */
obj_t BgL_arg1153z00_414;
{ /* ./Ieee/number.scm 337 */
obj_t BgL_pairz00_949;
if(
PAIRP(BgL_za7za7_408))
{ /* ./Ieee/number.scm 337 */
BgL_pairz00_949 = BgL_za7za7_408; }  else 
{ /* ./Ieee/number.scm 337 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5980z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_408, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12859))); 
exit( -1 );} 
BgL_arg1153z00_414 = 
CAR(BgL_pairz00_949); } 
BgL_test1145z00_411 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_407, BgL_arg1153z00_414); } 
if(BgL_test1145z00_411)
{ /* ./Ieee/number.scm 337 */
{ /* ./Ieee/number.scm 338 */
obj_t BgL_arg1147z00_412;obj_t BgL_arg1148z00_413;
{ /* ./Ieee/number.scm 338 */
obj_t BgL_pairz00_950;
if(
PAIRP(BgL_za7za7_408))
{ /* ./Ieee/number.scm 338 */
BgL_pairz00_950 = BgL_za7za7_408; }  else 
{ /* ./Ieee/number.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5980z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_408, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12878))); 
exit( -1 );} 
BgL_arg1147z00_412 = 
CAR(BgL_pairz00_950); } 
{ /* ./Ieee/number.scm 338 */
obj_t BgL_pairz00_951;
if(
PAIRP(BgL_za7za7_408))
{ /* ./Ieee/number.scm 338 */
BgL_pairz00_951 = BgL_za7za7_408; }  else 
{ /* ./Ieee/number.scm 338 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5980z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_408, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)12886))); 
exit( -1 );} 
BgL_arg1148z00_413 = 
CDR(BgL_pairz00_951); } 
{ 
obj_t BgL_za7za7_3182;obj_t BgL_xz00_3181;
BgL_xz00_3181 = BgL_arg1147z00_412; 
BgL_za7za7_3182 = BgL_arg1148z00_413; 
BgL_za7za7_408 = BgL_za7za7_3182; 
BgL_xz00_407 = BgL_xz00_3181; 
goto BgL_zc3anonymousza31143za3ieeezf2numberze2scmza3340ze3z93_409;} } }  else 
{ /* ./Ieee/number.scm 337 */
BgL_aux2577z00_1900 = ((bool_t)0); } } }  else 
{ /* ./Ieee/number.scm 340 */
BgL_aux2577z00_1900 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2577z00_1900;} } } } 
}



/* _> */
obj_t BGl__ze3ze3zz__r4_numbers_6_5z00(obj_t BgL_envz00_2014, obj_t BgL_xz00_2015, obj_t BgL_yz00_2016, obj_t BgL_za7za7_2017)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 333 */
{ /* ./Ieee/number.scm 339 */
bool_t BgL_auxz00_3184;
BgL_auxz00_3184 = 
BGl_ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_2015, BgL_yz00_2016, BgL_za7za7_2017); 
return 
BBOOL(BgL_auxz00_3184);} } 
}



/* 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 */
{ /* ./Ieee/number.scm 348 */
obj_t BgL_symbol2582z00_1901;
BgL_symbol2582z00_1901 = BGl_symbol5981z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 348 */

PUSH_TRACE(BgL_symbol2582z00_1901); BUNSPEC; 
{ /* ./Ieee/number.scm 348 */
bool_t BgL_aux2581z00_1902;
{ /* ./Ieee/number.scm 348 */
bool_t BgL_test1157z00_416;
BgL_test1157z00_416 = 
INTEGERP(BgL_xz00_27); 
if(BgL_test1157z00_416)
{ /* ./Ieee/number.scm 348 */
{ /* ./Ieee/number.scm 350 */
bool_t BgL_test1158z00_417;
BgL_test1158z00_417 = 
INTEGERP(BgL_yz00_28); 
if(BgL_test1158z00_417)
{ /* ./Ieee/number.scm 350 */
{ /* ./Ieee/number.scm 351 */
long BgL_n1z00_954;long BgL_n2z00_955;
{ /* ./Ieee/number.scm 351 */
obj_t BgL_auxz00_3192;
if(BgL_test1157z00_416)
{ /* ./Ieee/number.scm 351 */
BgL_auxz00_3192 = BgL_xz00_27
; }  else 
{ /* ./Ieee/number.scm 351 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_27, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13253))); 
exit( -1 );} 
BgL_n1z00_954 = 
(long)CINT(BgL_auxz00_3192); } 
{ /* ./Ieee/number.scm 351 */
obj_t BgL_auxz00_3198;
if(BgL_test1158z00_417)
{ /* ./Ieee/number.scm 351 */
BgL_auxz00_3198 = BgL_yz00_28
; }  else 
{ /* ./Ieee/number.scm 351 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_28, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13255))); 
exit( -1 );} 
BgL_n2z00_955 = 
(long)CINT(BgL_auxz00_3198); } 
BgL_aux2581z00_1902 = 
(BgL_n1z00_954<=BgL_n2z00_955); } }  else 
{ /* ./Ieee/number.scm 350 */
if(
REALP(BgL_yz00_28))
{ /* ./Ieee/number.scm 352 */
{ /* ./Ieee/number.scm 353 */
double BgL_arg1162z00_419;
{ /* ./Ieee/number.scm 353 */
long BgL_xz00_957;
{ /* ./Ieee/number.scm 353 */
obj_t BgL_auxz00_3207;
if(BgL_test1157z00_416)
{ /* ./Ieee/number.scm 353 */
BgL_auxz00_3207 = BgL_xz00_27
; }  else 
{ /* ./Ieee/number.scm 353 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_27, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13301))); 
exit( -1 );} 
BgL_xz00_957 = 
(long)CINT(BgL_auxz00_3207); } 
BgL_arg1162z00_419 = 
(double)(BgL_xz00_957); } 
{ /* ./Ieee/number.scm 353 */
double BgL_r2z00_959;
{ /* ./Ieee/number.scm 353 */
obj_t BgL_auxz00_3214;
if(
REALP(BgL_yz00_28))
{ /* ./Ieee/number.scm 353 */
BgL_auxz00_3214 = BgL_yz00_28
; }  else 
{ /* ./Ieee/number.scm 353 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_28, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13304))); 
exit( -1 );} 
BgL_r2z00_959 = 
REAL_TO_DOUBLE(BgL_auxz00_3214); } 
BgL_aux2581z00_1902 = 
(BgL_arg1162z00_419<=BgL_r2z00_959); } } }  else 
{ /* ./Ieee/number.scm 352 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5982z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_28, "./Ieee/number.scm", ((long)13321)); 
{ /* ./Ieee/number.scm 355 */
obj_t BgL_auxz00_3223;
BgL_auxz00_3223 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13321))); 
BgL_aux2581z00_1902 = 
CBOOL(BgL_auxz00_3223); } } } } }  else 
{ /* ./Ieee/number.scm 356 */
bool_t BgL_test1169z00_420;
BgL_test1169z00_420 = 
REALP(BgL_xz00_27); 
if(BgL_test1169z00_420)
{ /* ./Ieee/number.scm 356 */
{ /* ./Ieee/number.scm 358 */
bool_t BgL_test1170z00_421;
BgL_test1170z00_421 = 
REALP(BgL_yz00_28); 
if(BgL_test1170z00_421)
{ /* ./Ieee/number.scm 358 */
{ /* ./Ieee/number.scm 359 */
double BgL_r1z00_965;double BgL_r2z00_966;
{ /* ./Ieee/number.scm 359 */
obj_t BgL_auxz00_3231;
if(BgL_test1169z00_420)
{ /* ./Ieee/number.scm 359 */
BgL_auxz00_3231 = BgL_xz00_27
; }  else 
{ /* ./Ieee/number.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_27, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13412))); 
exit( -1 );} 
BgL_r1z00_965 = 
REAL_TO_DOUBLE(BgL_auxz00_3231); } 
{ /* ./Ieee/number.scm 359 */
obj_t BgL_auxz00_3237;
if(BgL_test1170z00_421)
{ /* ./Ieee/number.scm 359 */
BgL_auxz00_3237 = BgL_yz00_28
; }  else 
{ /* ./Ieee/number.scm 359 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_28, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13414))); 
exit( -1 );} 
BgL_r2z00_966 = 
REAL_TO_DOUBLE(BgL_auxz00_3237); } 
BgL_aux2581z00_1902 = 
(BgL_r1z00_965<=BgL_r2z00_966); } }  else 
{ /* ./Ieee/number.scm 360 */
bool_t BgL_test1172z00_422;
BgL_test1172z00_422 = 
INTEGERP(BgL_yz00_28); 
if(BgL_test1172z00_422)
{ /* ./Ieee/number.scm 360 */
{ /* ./Ieee/number.scm 361 */
double BgL_arg1174z00_423;
{ /* ./Ieee/number.scm 361 */
long BgL_xz00_968;
{ /* ./Ieee/number.scm 361 */
obj_t BgL_auxz00_3246;
if(BgL_test1172z00_422)
{ /* ./Ieee/number.scm 361 */
BgL_auxz00_3246 = BgL_yz00_28
; }  else 
{ /* ./Ieee/number.scm 361 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_28, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13462))); 
exit( -1 );} 
BgL_xz00_968 = 
(long)CINT(BgL_auxz00_3246); } 
BgL_arg1174z00_423 = 
(double)(BgL_xz00_968); } 
{ /* ./Ieee/number.scm 361 */
double BgL_r1z00_969;
{ /* ./Ieee/number.scm 361 */
obj_t BgL_auxz00_3253;
if(
REALP(BgL_xz00_27))
{ /* ./Ieee/number.scm 361 */
BgL_auxz00_3253 = BgL_xz00_27
; }  else 
{ /* ./Ieee/number.scm 361 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5981z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_27, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13444))); 
exit( -1 );} 
BgL_r1z00_969 = 
REAL_TO_DOUBLE(BgL_auxz00_3253); } 
BgL_aux2581z00_1902 = 
(BgL_r1z00_969<=BgL_arg1174z00_423); } } }  else 
{ /* ./Ieee/number.scm 360 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5982z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_28, "./Ieee/number.scm", ((long)13480)); 
{ /* ./Ieee/number.scm 363 */
obj_t BgL_auxz00_3262;
BgL_auxz00_3262 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13480))); 
BgL_aux2581z00_1902 = 
CBOOL(BgL_auxz00_3262); } } } } }  else 
{ /* ./Ieee/number.scm 356 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5982z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_27, "./Ieee/number.scm", ((long)13532)); 
{ /* ./Ieee/number.scm 365 */
obj_t BgL_auxz00_3267;
BgL_auxz00_3267 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13532))); 
BgL_aux2581z00_1902 = 
CBOOL(BgL_auxz00_3267); } } } } 
POP_TRACE(); 
return BgL_aux2581z00_1902;} } } } 
}



/* _2<= */
obj_t BGl__2zc3zd3z10zz__r4_numbers_6_5z00(obj_t BgL_envz00_2018, obj_t BgL_xz00_2019, obj_t BgL_yz00_2020)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 346 */
{ /* ./Ieee/number.scm 348 */
bool_t BgL_auxz00_3272;
BgL_auxz00_3272 = 
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_2019, BgL_yz00_2020); 
return 
BBOOL(BgL_auxz00_3272);} } 
}



/* <= */
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 */
{ /* ./Ieee/number.scm 376 */
obj_t BgL_symbol2586z00_1903;
BgL_symbol2586z00_1903 = BGl_symbol5983z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 376 */

PUSH_TRACE(BgL_symbol2586z00_1903); BUNSPEC; 
{ /* ./Ieee/number.scm 376 */
bool_t BgL_aux2585z00_1904;
{ 
obj_t BgL_xz00_426;obj_t BgL_za7za7_427;
if(
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_29, BgL_yz00_30))
{ /* ./Ieee/number.scm 377 */
BgL_xz00_426 = BgL_yz00_30; 
BgL_za7za7_427 = BgL_za7za7_31; 
BgL_zc3anonymousza31187za3ieeezf2numberze2scmza3377ze3z93_428:
if(
NULLP(BgL_za7za7_427))
{ /* ./Ieee/number.scm 373 */
BgL_aux2585z00_1904 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 374 */
bool_t BgL_test1189z00_430;
{ /* ./Ieee/number.scm 374 */
obj_t BgL_arg1197z00_433;
{ /* ./Ieee/number.scm 374 */
obj_t BgL_pairz00_978;
if(
PAIRP(BgL_za7za7_427))
{ /* ./Ieee/number.scm 374 */
BgL_pairz00_978 = BgL_za7za7_427; }  else 
{ /* ./Ieee/number.scm 374 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5983z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_427, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13878))); 
exit( -1 );} 
BgL_arg1197z00_433 = 
CAR(BgL_pairz00_978); } 
BgL_test1189z00_430 = 
BGl_2zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_426, BgL_arg1197z00_433); } 
if(BgL_test1189z00_430)
{ /* ./Ieee/number.scm 374 */
{ /* ./Ieee/number.scm 375 */
obj_t BgL_arg1191z00_431;obj_t BgL_arg1192z00_432;
{ /* ./Ieee/number.scm 375 */
obj_t BgL_pairz00_979;
if(
PAIRP(BgL_za7za7_427))
{ /* ./Ieee/number.scm 375 */
BgL_pairz00_979 = BgL_za7za7_427; }  else 
{ /* ./Ieee/number.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5983z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_427, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13899))); 
exit( -1 );} 
BgL_arg1191z00_431 = 
CAR(BgL_pairz00_979); } 
{ /* ./Ieee/number.scm 375 */
obj_t BgL_pairz00_980;
if(
PAIRP(BgL_za7za7_427))
{ /* ./Ieee/number.scm 375 */
BgL_pairz00_980 = BgL_za7za7_427; }  else 
{ /* ./Ieee/number.scm 375 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5983z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_427, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)13907))); 
exit( -1 );} 
BgL_arg1192z00_432 = 
CDR(BgL_pairz00_980); } 
{ 
obj_t BgL_za7za7_3301;obj_t BgL_xz00_3300;
BgL_xz00_3300 = BgL_arg1191z00_431; 
BgL_za7za7_3301 = BgL_arg1192z00_432; 
BgL_za7za7_427 = BgL_za7za7_3301; 
BgL_xz00_426 = BgL_xz00_3300; 
goto BgL_zc3anonymousza31187za3ieeezf2numberze2scmza3377ze3z93_428;} } }  else 
{ /* ./Ieee/number.scm 374 */
BgL_aux2585z00_1904 = ((bool_t)0); } } }  else 
{ /* ./Ieee/number.scm 377 */
BgL_aux2585z00_1904 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2585z00_1904;} } } } 
}



/* _<= */
obj_t BGl__zc3zd3z10zz__r4_numbers_6_5z00(obj_t BgL_envz00_2021, obj_t BgL_xz00_2022, obj_t BgL_yz00_2023, obj_t BgL_za7za7_2024)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 370 */
{ /* ./Ieee/number.scm 376 */
bool_t BgL_auxz00_3303;
BgL_auxz00_3303 = 
BGl_zc3zd3z10zz__r4_numbers_6_5z00(BgL_xz00_2022, BgL_yz00_2023, BgL_za7za7_2024); 
return 
BBOOL(BgL_auxz00_3303);} } 
}



/* 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 */
{ /* ./Ieee/number.scm 385 */
obj_t BgL_symbol2590z00_1905;
BgL_symbol2590z00_1905 = BGl_symbol5984z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 385 */

PUSH_TRACE(BgL_symbol2590z00_1905); BUNSPEC; 
{ /* ./Ieee/number.scm 385 */
bool_t BgL_aux2589z00_1906;
{ /* ./Ieee/number.scm 385 */
bool_t BgL_test1201z00_435;
BgL_test1201z00_435 = 
INTEGERP(BgL_xz00_32); 
if(BgL_test1201z00_435)
{ /* ./Ieee/number.scm 385 */
{ /* ./Ieee/number.scm 387 */
bool_t BgL_test1202z00_436;
BgL_test1202z00_436 = 
INTEGERP(BgL_yz00_33); 
if(BgL_test1202z00_436)
{ /* ./Ieee/number.scm 387 */
{ /* ./Ieee/number.scm 388 */
long BgL_n1z00_983;long BgL_n2z00_984;
{ /* ./Ieee/number.scm 388 */
obj_t BgL_auxz00_3311;
if(BgL_test1201z00_435)
{ /* ./Ieee/number.scm 388 */
BgL_auxz00_3311 = BgL_xz00_32
; }  else 
{ /* ./Ieee/number.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_32, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14269))); 
exit( -1 );} 
BgL_n1z00_983 = 
(long)CINT(BgL_auxz00_3311); } 
{ /* ./Ieee/number.scm 388 */
obj_t BgL_auxz00_3317;
if(BgL_test1202z00_436)
{ /* ./Ieee/number.scm 388 */
BgL_auxz00_3317 = BgL_yz00_33
; }  else 
{ /* ./Ieee/number.scm 388 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_33, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14271))); 
exit( -1 );} 
BgL_n2z00_984 = 
(long)CINT(BgL_auxz00_3317); } 
BgL_aux2589z00_1906 = 
(BgL_n1z00_983>=BgL_n2z00_984); } }  else 
{ /* ./Ieee/number.scm 387 */
if(
REALP(BgL_yz00_33))
{ /* ./Ieee/number.scm 389 */
{ /* ./Ieee/number.scm 390 */
double BgL_arg1206z00_438;
{ /* ./Ieee/number.scm 390 */
long BgL_xz00_986;
{ /* ./Ieee/number.scm 390 */
obj_t BgL_auxz00_3326;
if(BgL_test1201z00_435)
{ /* ./Ieee/number.scm 390 */
BgL_auxz00_3326 = BgL_xz00_32
; }  else 
{ /* ./Ieee/number.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_32, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14317))); 
exit( -1 );} 
BgL_xz00_986 = 
(long)CINT(BgL_auxz00_3326); } 
BgL_arg1206z00_438 = 
(double)(BgL_xz00_986); } 
{ /* ./Ieee/number.scm 390 */
double BgL_r2z00_988;
{ /* ./Ieee/number.scm 390 */
obj_t BgL_auxz00_3333;
if(
REALP(BgL_yz00_33))
{ /* ./Ieee/number.scm 390 */
BgL_auxz00_3333 = BgL_yz00_33
; }  else 
{ /* ./Ieee/number.scm 390 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_33, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14320))); 
exit( -1 );} 
BgL_r2z00_988 = 
REAL_TO_DOUBLE(BgL_auxz00_3333); } 
BgL_aux2589z00_1906 = 
(BgL_arg1206z00_438>=BgL_r2z00_988); } } }  else 
{ /* ./Ieee/number.scm 389 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5985z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_33, "./Ieee/number.scm", ((long)14337)); 
{ /* ./Ieee/number.scm 392 */
obj_t BgL_auxz00_3342;
BgL_auxz00_3342 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14337))); 
BgL_aux2589z00_1906 = 
CBOOL(BgL_auxz00_3342); } } } } }  else 
{ /* ./Ieee/number.scm 393 */
bool_t BgL_test1213z00_439;
BgL_test1213z00_439 = 
REALP(BgL_xz00_32); 
if(BgL_test1213z00_439)
{ /* ./Ieee/number.scm 393 */
{ /* ./Ieee/number.scm 395 */
bool_t BgL_test1214z00_440;
BgL_test1214z00_440 = 
REALP(BgL_yz00_33); 
if(BgL_test1214z00_440)
{ /* ./Ieee/number.scm 395 */
{ /* ./Ieee/number.scm 396 */
double BgL_r1z00_994;double BgL_r2z00_995;
{ /* ./Ieee/number.scm 396 */
obj_t BgL_auxz00_3350;
if(BgL_test1213z00_439)
{ /* ./Ieee/number.scm 396 */
BgL_auxz00_3350 = BgL_xz00_32
; }  else 
{ /* ./Ieee/number.scm 396 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_32, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14428))); 
exit( -1 );} 
BgL_r1z00_994 = 
REAL_TO_DOUBLE(BgL_auxz00_3350); } 
{ /* ./Ieee/number.scm 396 */
obj_t BgL_auxz00_3356;
if(BgL_test1214z00_440)
{ /* ./Ieee/number.scm 396 */
BgL_auxz00_3356 = BgL_yz00_33
; }  else 
{ /* ./Ieee/number.scm 396 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_33, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14430))); 
exit( -1 );} 
BgL_r2z00_995 = 
REAL_TO_DOUBLE(BgL_auxz00_3356); } 
BgL_aux2589z00_1906 = 
(BgL_r1z00_994>=BgL_r2z00_995); } }  else 
{ /* ./Ieee/number.scm 397 */
bool_t BgL_test1216z00_441;
BgL_test1216z00_441 = 
INTEGERP(BgL_yz00_33); 
if(BgL_test1216z00_441)
{ /* ./Ieee/number.scm 397 */
{ /* ./Ieee/number.scm 398 */
double BgL_arg1218z00_442;
{ /* ./Ieee/number.scm 398 */
long BgL_xz00_997;
{ /* ./Ieee/number.scm 398 */
obj_t BgL_auxz00_3365;
if(BgL_test1216z00_441)
{ /* ./Ieee/number.scm 398 */
BgL_auxz00_3365 = BgL_yz00_33
; }  else 
{ /* ./Ieee/number.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_33, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14478))); 
exit( -1 );} 
BgL_xz00_997 = 
(long)CINT(BgL_auxz00_3365); } 
BgL_arg1218z00_442 = 
(double)(BgL_xz00_997); } 
{ /* ./Ieee/number.scm 398 */
double BgL_r1z00_998;
{ /* ./Ieee/number.scm 398 */
obj_t BgL_auxz00_3372;
if(
REALP(BgL_xz00_32))
{ /* ./Ieee/number.scm 398 */
BgL_auxz00_3372 = BgL_xz00_32
; }  else 
{ /* ./Ieee/number.scm 398 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5984z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_32, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14460))); 
exit( -1 );} 
BgL_r1z00_998 = 
REAL_TO_DOUBLE(BgL_auxz00_3372); } 
BgL_aux2589z00_1906 = 
(BgL_r1z00_998>=BgL_arg1218z00_442); } } }  else 
{ /* ./Ieee/number.scm 397 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5985z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_33, "./Ieee/number.scm", ((long)14496)); 
{ /* ./Ieee/number.scm 400 */
obj_t BgL_auxz00_3381;
BgL_auxz00_3381 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14496))); 
BgL_aux2589z00_1906 = 
CBOOL(BgL_auxz00_3381); } } } } }  else 
{ /* ./Ieee/number.scm 393 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5985z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_32, "./Ieee/number.scm", ((long)14548)); 
{ /* ./Ieee/number.scm 402 */
obj_t BgL_auxz00_3386;
BgL_auxz00_3386 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14548))); 
BgL_aux2589z00_1906 = 
CBOOL(BgL_auxz00_3386); } } } } 
POP_TRACE(); 
return BgL_aux2589z00_1906;} } } } 
}



/* _2>= */
obj_t BGl__2ze3zd3z30zz__r4_numbers_6_5z00(obj_t BgL_envz00_2025, obj_t BgL_xz00_2026, obj_t BgL_yz00_2027)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 383 */
{ /* ./Ieee/number.scm 385 */
bool_t BgL_auxz00_3391;
BgL_auxz00_3391 = 
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_2026, BgL_yz00_2027); 
return 
BBOOL(BgL_auxz00_3391);} } 
}



/* >= */
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 */
{ /* ./Ieee/number.scm 413 */
obj_t BgL_symbol2594z00_1907;
BgL_symbol2594z00_1907 = BGl_symbol5986z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 413 */

PUSH_TRACE(BgL_symbol2594z00_1907); BUNSPEC; 
{ /* ./Ieee/number.scm 413 */
bool_t BgL_aux2593z00_1908;
{ 
obj_t BgL_xz00_445;obj_t BgL_za7za7_446;
if(
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_34, BgL_yz00_35))
{ /* ./Ieee/number.scm 414 */
BgL_xz00_445 = BgL_yz00_35; 
BgL_za7za7_446 = BgL_za7za7_36; 
BgL_zc3anonymousza31231za3ieeezf2numberze2scmza3414ze3z93_447:
if(
NULLP(BgL_za7za7_446))
{ /* ./Ieee/number.scm 410 */
BgL_aux2593z00_1908 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 411 */
bool_t BgL_test1233z00_449;
{ /* ./Ieee/number.scm 411 */
obj_t BgL_arg1241z00_452;
{ /* ./Ieee/number.scm 411 */
obj_t BgL_pairz00_1007;
if(
PAIRP(BgL_za7za7_446))
{ /* ./Ieee/number.scm 411 */
BgL_pairz00_1007 = BgL_za7za7_446; }  else 
{ /* ./Ieee/number.scm 411 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5986z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_446, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14905))); 
exit( -1 );} 
BgL_arg1241z00_452 = 
CAR(BgL_pairz00_1007); } 
BgL_test1233z00_449 = 
BGl_2ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_445, BgL_arg1241z00_452); } 
if(BgL_test1233z00_449)
{ /* ./Ieee/number.scm 411 */
{ /* ./Ieee/number.scm 412 */
obj_t BgL_arg1235z00_450;obj_t BgL_arg1236z00_451;
{ /* ./Ieee/number.scm 412 */
obj_t BgL_pairz00_1008;
if(
PAIRP(BgL_za7za7_446))
{ /* ./Ieee/number.scm 412 */
BgL_pairz00_1008 = BgL_za7za7_446; }  else 
{ /* ./Ieee/number.scm 412 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5986z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_446, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14925))); 
exit( -1 );} 
BgL_arg1235z00_450 = 
CAR(BgL_pairz00_1008); } 
{ /* ./Ieee/number.scm 412 */
obj_t BgL_pairz00_1009;
if(
PAIRP(BgL_za7za7_446))
{ /* ./Ieee/number.scm 412 */
BgL_pairz00_1009 = BgL_za7za7_446; }  else 
{ /* ./Ieee/number.scm 412 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5986z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_446, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)14933))); 
exit( -1 );} 
BgL_arg1236z00_451 = 
CDR(BgL_pairz00_1009); } 
{ 
obj_t BgL_za7za7_3420;obj_t BgL_xz00_3419;
BgL_xz00_3419 = BgL_arg1235z00_450; 
BgL_za7za7_3420 = BgL_arg1236z00_451; 
BgL_za7za7_446 = BgL_za7za7_3420; 
BgL_xz00_445 = BgL_xz00_3419; 
goto BgL_zc3anonymousza31231za3ieeezf2numberze2scmza3414ze3z93_447;} } }  else 
{ /* ./Ieee/number.scm 411 */
BgL_aux2593z00_1908 = ((bool_t)0); } } }  else 
{ /* ./Ieee/number.scm 414 */
BgL_aux2593z00_1908 = ((bool_t)0); } } 
POP_TRACE(); 
return BgL_aux2593z00_1908;} } } } 
}



/* _>= */
obj_t BGl__ze3zd3z30zz__r4_numbers_6_5z00(obj_t BgL_envz00_2028, obj_t BgL_xz00_2029, obj_t BgL_yz00_2030, obj_t BgL_za7za7_2031)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 407 */
{ /* ./Ieee/number.scm 413 */
bool_t BgL_auxz00_3422;
BgL_auxz00_3422 = 
BGl_ze3zd3z30zz__r4_numbers_6_5z00(BgL_xz00_2029, BgL_yz00_2030, BgL_za7za7_2031); 
return 
BBOOL(BgL_auxz00_3422);} } 
}



/* zero? */
BGL_EXPORTED_DEF bool_t BGl_za7erozf3z54zz__r4_numbers_6_5z00(obj_t BgL_xz00_37)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 420 */
{ /* ./Ieee/number.scm 422 */
obj_t BgL_symbol2598z00_1909;
BgL_symbol2598z00_1909 = BGl_symbol5987z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 422 */

PUSH_TRACE(BgL_symbol2598z00_1909); BUNSPEC; 
{ /* ./Ieee/number.scm 422 */
bool_t BgL_aux2597z00_1910;
{ /* ./Ieee/number.scm 422 */
bool_t BgL_test1245z00_454;
BgL_test1245z00_454 = 
INTEGERP(BgL_xz00_37); 
if(BgL_test1245z00_454)
{ /* ./Ieee/number.scm 422 */
{ /* ./Ieee/number.scm 423 */
long BgL_nz00_1011;
{ /* ./Ieee/number.scm 423 */
obj_t BgL_auxz00_3428;
if(BgL_test1245z00_454)
{ /* ./Ieee/number.scm 423 */
BgL_auxz00_3428 = BgL_xz00_37
; }  else 
{ /* ./Ieee/number.scm 423 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5987z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_37, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)15278))); 
exit( -1 );} 
BgL_nz00_1011 = 
(long)CINT(BgL_auxz00_3428); } 
BgL_aux2597z00_1910 = 
(BgL_nz00_1011==((long)0)); } }  else 
{ /* ./Ieee/number.scm 424 */
bool_t BgL_test1247z00_455;
BgL_test1247z00_455 = 
REALP(BgL_xz00_37); 
if(BgL_test1247z00_455)
{ /* ./Ieee/number.scm 424 */
{ /* ./Ieee/number.scm 425 */
double BgL_rz00_1015;
{ /* ./Ieee/number.scm 425 */
obj_t BgL_auxz00_3437;
if(BgL_test1247z00_455)
{ /* ./Ieee/number.scm 425 */
BgL_auxz00_3437 = BgL_xz00_37
; }  else 
{ /* ./Ieee/number.scm 425 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5987z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_37, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)15317))); 
exit( -1 );} 
BgL_rz00_1015 = 
REAL_TO_DOUBLE(BgL_auxz00_3437); } 
BgL_aux2597z00_1910 = 
(BgL_rz00_1015==((double)0.0)); } }  else 
{ /* ./Ieee/number.scm 424 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5988z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_37, "./Ieee/number.scm", ((long)15340)); 
{ /* ./Ieee/number.scm 427 */
obj_t BgL_auxz00_3445;
BgL_auxz00_3445 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)15340))); 
BgL_aux2597z00_1910 = 
CBOOL(BgL_auxz00_3445); } } } } 
POP_TRACE(); 
return BgL_aux2597z00_1910;} } } } 
}



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



/* positive? */
BGL_EXPORTED_DEF bool_t BGl_positivezf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_38)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 432 */
{ /* ./Ieee/number.scm 434 */
obj_t BgL_symbol2602z00_1911;
BgL_symbol2602z00_1911 = BGl_symbol5989z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 434 */

PUSH_TRACE(BgL_symbol2602z00_1911); BUNSPEC; 
{ /* ./Ieee/number.scm 434 */
bool_t BgL_aux2601z00_1912;
{ /* ./Ieee/number.scm 434 */
bool_t BgL_test1253z00_456;
BgL_test1253z00_456 = 
INTEGERP(BgL_xz00_38); 
if(BgL_test1253z00_456)
{ /* ./Ieee/number.scm 434 */
{ /* ./Ieee/number.scm 435 */
long BgL_nz00_1022;
{ /* ./Ieee/number.scm 435 */
obj_t BgL_auxz00_3456;
if(BgL_test1253z00_456)
{ /* ./Ieee/number.scm 435 */
BgL_auxz00_3456 = BgL_xz00_38
; }  else 
{ /* ./Ieee/number.scm 435 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5989z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_38, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)15668))); 
exit( -1 );} 
BgL_nz00_1022 = 
(long)CINT(BgL_auxz00_3456); } 
BgL_aux2601z00_1912 = 
(BgL_nz00_1022>((long)0)); } }  else 
{ /* ./Ieee/number.scm 436 */
bool_t BgL_test1255z00_457;
BgL_test1255z00_457 = 
REALP(BgL_xz00_38); 
if(BgL_test1255z00_457)
{ /* ./Ieee/number.scm 436 */
{ /* ./Ieee/number.scm 437 */
double BgL_rz00_1026;
{ /* ./Ieee/number.scm 437 */
obj_t BgL_auxz00_3465;
if(BgL_test1255z00_457)
{ /* ./Ieee/number.scm 437 */
BgL_auxz00_3465 = BgL_xz00_38
; }  else 
{ /* ./Ieee/number.scm 437 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5989z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_38, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)15711))); 
exit( -1 );} 
BgL_rz00_1026 = 
REAL_TO_DOUBLE(BgL_auxz00_3465); } 
BgL_aux2601z00_1912 = 
(BgL_rz00_1026>((double)0.0)); } }  else 
{ /* ./Ieee/number.scm 436 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5990z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_38, "./Ieee/number.scm", ((long)15734)); 
{ /* ./Ieee/number.scm 439 */
obj_t BgL_auxz00_3473;
BgL_auxz00_3473 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)15734))); 
BgL_aux2601z00_1912 = 
CBOOL(BgL_auxz00_3473); } } } } 
POP_TRACE(); 
return BgL_aux2601z00_1912;} } } } 
}



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



/* negative? */
BGL_EXPORTED_DEF bool_t BGl_negativezf3zf3zz__r4_numbers_6_5z00(obj_t BgL_xz00_39)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 444 */
{ /* ./Ieee/number.scm 446 */
obj_t BgL_symbol2606z00_1913;
BgL_symbol2606z00_1913 = BGl_symbol5991z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 446 */

PUSH_TRACE(BgL_symbol2606z00_1913); BUNSPEC; 
{ /* ./Ieee/number.scm 446 */
bool_t BgL_aux2605z00_1914;
{ /* ./Ieee/number.scm 446 */
bool_t BgL_test1261z00_458;
BgL_test1261z00_458 = 
INTEGERP(BgL_xz00_39); 
if(BgL_test1261z00_458)
{ /* ./Ieee/number.scm 446 */
{ /* ./Ieee/number.scm 447 */
long BgL_nz00_1033;
{ /* ./Ieee/number.scm 447 */
obj_t BgL_auxz00_3484;
if(BgL_test1261z00_458)
{ /* ./Ieee/number.scm 447 */
BgL_auxz00_3484 = BgL_xz00_39
; }  else 
{ /* ./Ieee/number.scm 447 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5991z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_39, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16066))); 
exit( -1 );} 
BgL_nz00_1033 = 
(long)CINT(BgL_auxz00_3484); } 
BgL_aux2605z00_1914 = 
(BgL_nz00_1033<((long)0)); } }  else 
{ /* ./Ieee/number.scm 448 */
bool_t BgL_test1263z00_459;
BgL_test1263z00_459 = 
REALP(BgL_xz00_39); 
if(BgL_test1263z00_459)
{ /* ./Ieee/number.scm 448 */
{ /* ./Ieee/number.scm 449 */
double BgL_rz00_1037;
{ /* ./Ieee/number.scm 449 */
obj_t BgL_auxz00_3493;
if(BgL_test1263z00_459)
{ /* ./Ieee/number.scm 449 */
BgL_auxz00_3493 = BgL_xz00_39
; }  else 
{ /* ./Ieee/number.scm 449 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5991z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_39, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16109))); 
exit( -1 );} 
BgL_rz00_1037 = 
REAL_TO_DOUBLE(BgL_auxz00_3493); } 
BgL_aux2605z00_1914 = 
(BgL_rz00_1037<((double)0.0)); } }  else 
{ /* ./Ieee/number.scm 448 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5992z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_39, "./Ieee/number.scm", ((long)16132)); 
{ /* ./Ieee/number.scm 451 */
obj_t BgL_auxz00_3501;
BgL_auxz00_3501 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16132))); 
BgL_aux2605z00_1914 = 
CBOOL(BgL_auxz00_3501); } } } } 
POP_TRACE(); 
return BgL_aux2605z00_1914;} } } } 
}



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



/* 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 */
{ /* ./Ieee/number.scm 457 */
obj_t BgL_symbol2610z00_1915;
BgL_symbol2610z00_1915 = BGl_symbol5993z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 457 */

PUSH_TRACE(BgL_symbol2610z00_1915); BUNSPEC; 
{ /* ./Ieee/number.scm 457 */
obj_t BgL_aux2609z00_1916;
{ 
obj_t BgL_xz00_460;obj_t BgL_yz00_461;
BgL_xz00_460 = BgL_xz00_40; 
BgL_yz00_461 = BgL_yz00_41; 
BgL_loopz00_462:
{ /* ./Ieee/number.scm 459 */
bool_t BgL_test1270z00_463;
BgL_test1270z00_463 = 
PAIRP(BgL_yz00_461); 
if(BgL_test1270z00_463)
{ /* ./Ieee/number.scm 460 */
obj_t BgL_arg1273z00_464;obj_t BgL_arg1274z00_465;
{ /* ./Ieee/number.scm 460 */
bool_t BgL_test1276z00_466;
{ /* ./Ieee/number.scm 460 */
obj_t BgL_arg1279z00_467;
{ /* ./Ieee/number.scm 460 */
obj_t BgL_pairz00_1044;
if(BgL_test1270z00_463)
{ /* ./Ieee/number.scm 460 */
BgL_pairz00_1044 = BgL_yz00_461; }  else 
{ /* ./Ieee/number.scm 460 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5993z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_461, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16491))); 
exit( -1 );} 
BgL_arg1279z00_467 = 
CAR(BgL_pairz00_1044); } 
BgL_test1276z00_466 = 
BGl_2ze3ze3zz__r4_numbers_6_5z00(BgL_xz00_460, BgL_arg1279z00_467); } 
if(BgL_test1276z00_466)
{ /* ./Ieee/number.scm 460 */
BgL_arg1273z00_464 = BgL_xz00_460; }  else 
{ /* ./Ieee/number.scm 462 */
obj_t BgL_pairz00_1045;
if(
PAIRP(BgL_yz00_461))
{ /* ./Ieee/number.scm 462 */
BgL_pairz00_1045 = BgL_yz00_461; }  else 
{ /* ./Ieee/number.scm 462 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5993z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_461, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16514))); 
exit( -1 );} 
BgL_arg1273z00_464 = 
CAR(BgL_pairz00_1045); } } 
{ /* ./Ieee/number.scm 463 */
obj_t BgL_pairz00_1046;
if(BgL_test1270z00_463)
{ /* ./Ieee/number.scm 463 */
BgL_pairz00_1046 = BgL_yz00_461; }  else 
{ /* ./Ieee/number.scm 463 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5993z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_461, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16525))); 
exit( -1 );} 
BgL_arg1274z00_465 = 
CDR(BgL_pairz00_1046); } 
{ 
obj_t BgL_yz00_3531;obj_t BgL_xz00_3530;
BgL_xz00_3530 = BgL_arg1273z00_464; 
BgL_yz00_3531 = BgL_arg1274z00_465; 
BgL_yz00_461 = BgL_yz00_3531; 
BgL_xz00_460 = BgL_xz00_3530; 
goto BgL_loopz00_462;} }  else 
{ /* ./Ieee/number.scm 459 */
BgL_aux2609z00_1916 = BgL_xz00_460; } } } 
POP_TRACE(); 
return BgL_aux2609z00_1916;} } } } 
}



/* _max */
obj_t BGl__maxz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2038, obj_t BgL_xz00_2039, obj_t BgL_yz00_2040)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 456 */
return 
BGl_maxz00zz__r4_numbers_6_5z00(BgL_xz00_2039, BgL_yz00_2040);} 
}



/* 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 */
{ /* ./Ieee/number.scm 470 */
obj_t BgL_symbol2614z00_1917;
BgL_symbol2614z00_1917 = BGl_symbol5994z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 470 */

PUSH_TRACE(BgL_symbol2614z00_1917); BUNSPEC; 
{ /* ./Ieee/number.scm 470 */
obj_t BgL_aux2613z00_1918;
{ 
obj_t BgL_xz00_468;obj_t BgL_yz00_469;
BgL_xz00_468 = BgL_xz00_42; 
BgL_yz00_469 = BgL_yz00_43; 
BgL_loopz00_470:
{ /* ./Ieee/number.scm 472 */
bool_t BgL_test1285z00_471;
BgL_test1285z00_471 = 
PAIRP(BgL_yz00_469); 
if(BgL_test1285z00_471)
{ /* ./Ieee/number.scm 473 */
obj_t BgL_arg1287z00_472;obj_t BgL_arg1288z00_473;
{ /* ./Ieee/number.scm 473 */
bool_t BgL_test1290z00_474;
{ /* ./Ieee/number.scm 473 */
obj_t BgL_arg1293z00_475;
{ /* ./Ieee/number.scm 473 */
obj_t BgL_pairz00_1048;
if(BgL_test1285z00_471)
{ /* ./Ieee/number.scm 473 */
BgL_pairz00_1048 = BgL_yz00_469; }  else 
{ /* ./Ieee/number.scm 473 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5994z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_469, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16857))); 
exit( -1 );} 
BgL_arg1293z00_475 = 
CAR(BgL_pairz00_1048); } 
BgL_test1290z00_474 = 
BGl_2zc3zc3zz__r4_numbers_6_5z00(BgL_xz00_468, BgL_arg1293z00_475); } 
if(BgL_test1290z00_474)
{ /* ./Ieee/number.scm 473 */
BgL_arg1287z00_472 = BgL_xz00_468; }  else 
{ /* ./Ieee/number.scm 475 */
obj_t BgL_pairz00_1049;
if(
PAIRP(BgL_yz00_469))
{ /* ./Ieee/number.scm 475 */
BgL_pairz00_1049 = BgL_yz00_469; }  else 
{ /* ./Ieee/number.scm 475 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5994z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_469, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16880))); 
exit( -1 );} 
BgL_arg1287z00_472 = 
CAR(BgL_pairz00_1049); } } 
{ /* ./Ieee/number.scm 476 */
obj_t BgL_pairz00_1050;
if(BgL_test1285z00_471)
{ /* ./Ieee/number.scm 476 */
BgL_pairz00_1050 = BgL_yz00_469; }  else 
{ /* ./Ieee/number.scm 476 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5994z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_469, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)16891))); 
exit( -1 );} 
BgL_arg1288z00_473 = 
CDR(BgL_pairz00_1050); } 
{ 
obj_t BgL_yz00_3556;obj_t BgL_xz00_3555;
BgL_xz00_3555 = BgL_arg1287z00_472; 
BgL_yz00_3556 = BgL_arg1288z00_473; 
BgL_yz00_469 = BgL_yz00_3556; 
BgL_xz00_468 = BgL_xz00_3555; 
goto BgL_loopz00_470;} }  else 
{ /* ./Ieee/number.scm 472 */
BgL_aux2613z00_1918 = BgL_xz00_468; } } } 
POP_TRACE(); 
return BgL_aux2613z00_1918;} } } } 
}



/* _min */
obj_t BGl__minz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2041, obj_t BgL_xz00_2042, obj_t BgL_yz00_2043)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 469 */
return 
BGl_minz00zz__r4_numbers_6_5z00(BgL_xz00_2042, BgL_yz00_2043);} 
}



/* 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 */
{ /* ./Ieee/number.scm 484 */
obj_t BgL_symbol2618z00_1919;
BgL_symbol2618z00_1919 = BGl_symbol5995z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 484 */

PUSH_TRACE(BgL_symbol2618z00_1919); BUNSPEC; 
{ /* ./Ieee/number.scm 484 */
obj_t BgL_aux2617z00_1920;
{ /* ./Ieee/number.scm 484 */
bool_t BgL_test1298z00_476;
BgL_test1298z00_476 = 
INTEGERP(BgL_xz00_44); 
if(BgL_test1298z00_476)
{ /* ./Ieee/number.scm 484 */
{ /* ./Ieee/number.scm 486 */
bool_t BgL_test1299z00_477;
BgL_test1299z00_477 = 
INTEGERP(BgL_yz00_45); 
if(BgL_test1299z00_477)
{ /* ./Ieee/number.scm 486 */
{ /* ./Ieee/number.scm 487 */
long BgL_za71za7_1053;long BgL_za72za7_1054;
{ /* ./Ieee/number.scm 487 */
obj_t BgL_auxz00_3564;
if(BgL_test1298z00_476)
{ /* ./Ieee/number.scm 487 */
BgL_auxz00_3564 = BgL_xz00_44
; }  else 
{ /* ./Ieee/number.scm 487 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_44, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17204))); 
exit( -1 );} 
BgL_za71za7_1053 = 
(long)CINT(BgL_auxz00_3564); } 
{ /* ./Ieee/number.scm 487 */
obj_t BgL_auxz00_3570;
if(BgL_test1299z00_477)
{ /* ./Ieee/number.scm 487 */
BgL_auxz00_3570 = BgL_yz00_45
; }  else 
{ /* ./Ieee/number.scm 487 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_45, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17204))); 
exit( -1 );} 
BgL_za72za7_1054 = 
(long)CINT(BgL_auxz00_3570); } 
{ /* ./Ieee/number.scm 487 */
long BgL_auxz00_3576;
BgL_auxz00_3576 = 
(BgL_za71za7_1053+BgL_za72za7_1054); 
BgL_aux2617z00_1920 = 
BINT(BgL_auxz00_3576); } } }  else 
{ /* ./Ieee/number.scm 486 */
if(
REALP(BgL_yz00_45))
{ /* ./Ieee/number.scm 488 */
{ /* ./Ieee/number.scm 489 */
double BgL_arg1303z00_479;
{ /* ./Ieee/number.scm 489 */
long BgL_xz00_1056;
{ /* ./Ieee/number.scm 489 */
obj_t BgL_auxz00_3581;
if(BgL_test1298z00_476)
{ /* ./Ieee/number.scm 489 */
BgL_auxz00_3581 = BgL_xz00_44
; }  else 
{ /* ./Ieee/number.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_44, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17256))); 
exit( -1 );} 
BgL_xz00_1056 = 
(long)CINT(BgL_auxz00_3581); } 
BgL_arg1303z00_479 = 
(double)(BgL_xz00_1056); } 
{ /* ./Ieee/number.scm 489 */
double BgL_r2z00_1058;
{ /* ./Ieee/number.scm 489 */
obj_t BgL_auxz00_3588;
if(
REALP(BgL_yz00_45))
{ /* ./Ieee/number.scm 489 */
BgL_auxz00_3588 = BgL_yz00_45
; }  else 
{ /* ./Ieee/number.scm 489 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_45, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17259))); 
exit( -1 );} 
BgL_r2z00_1058 = 
REAL_TO_DOUBLE(BgL_auxz00_3588); } 
{ /* ./Ieee/number.scm 489 */
double BgL_auxz00_3595;
BgL_auxz00_3595 = 
(BgL_arg1303z00_479+BgL_r2z00_1058); 
BgL_aux2617z00_1920 = 
DOUBLE_TO_REAL(BgL_auxz00_3595); } } } }  else 
{ /* ./Ieee/number.scm 488 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5996z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_45, "./Ieee/number.scm", ((long)17276)); 
BgL_aux2617z00_1920 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17276))); } } } }  else 
{ /* ./Ieee/number.scm 492 */
bool_t BgL_test1310z00_480;
BgL_test1310z00_480 = 
REALP(BgL_xz00_44); 
if(BgL_test1310z00_480)
{ /* ./Ieee/number.scm 492 */
{ /* ./Ieee/number.scm 494 */
bool_t BgL_test1311z00_481;
BgL_test1311z00_481 = 
REALP(BgL_yz00_45); 
if(BgL_test1311z00_481)
{ /* ./Ieee/number.scm 494 */
{ /* ./Ieee/number.scm 495 */
double BgL_r1z00_1064;double BgL_r2z00_1065;
{ /* ./Ieee/number.scm 495 */
obj_t BgL_auxz00_3605;
if(BgL_test1310z00_480)
{ /* ./Ieee/number.scm 495 */
BgL_auxz00_3605 = BgL_xz00_44
; }  else 
{ /* ./Ieee/number.scm 495 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_44, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17365))); 
exit( -1 );} 
BgL_r1z00_1064 = 
REAL_TO_DOUBLE(BgL_auxz00_3605); } 
{ /* ./Ieee/number.scm 495 */
obj_t BgL_auxz00_3611;
if(BgL_test1311z00_481)
{ /* ./Ieee/number.scm 495 */
BgL_auxz00_3611 = BgL_yz00_45
; }  else 
{ /* ./Ieee/number.scm 495 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_45, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17367))); 
exit( -1 );} 
BgL_r2z00_1065 = 
REAL_TO_DOUBLE(BgL_auxz00_3611); } 
{ /* ./Ieee/number.scm 495 */
double BgL_auxz00_3617;
BgL_auxz00_3617 = 
(BgL_r1z00_1064+BgL_r2z00_1065); 
BgL_aux2617z00_1920 = 
DOUBLE_TO_REAL(BgL_auxz00_3617); } } }  else 
{ /* ./Ieee/number.scm 496 */
bool_t BgL_test1313z00_482;
BgL_test1313z00_482 = 
INTEGERP(BgL_yz00_45); 
if(BgL_test1313z00_482)
{ /* ./Ieee/number.scm 496 */
{ /* ./Ieee/number.scm 497 */
double BgL_arg1315z00_483;
{ /* ./Ieee/number.scm 497 */
long BgL_xz00_1067;
{ /* ./Ieee/number.scm 497 */
obj_t BgL_auxz00_3622;
if(BgL_test1313z00_482)
{ /* ./Ieee/number.scm 497 */
BgL_auxz00_3622 = BgL_yz00_45
; }  else 
{ /* ./Ieee/number.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_45, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17414))); 
exit( -1 );} 
BgL_xz00_1067 = 
(long)CINT(BgL_auxz00_3622); } 
BgL_arg1315z00_483 = 
(double)(BgL_xz00_1067); } 
{ /* ./Ieee/number.scm 497 */
double BgL_r1z00_1068;
{ /* ./Ieee/number.scm 497 */
obj_t BgL_auxz00_3629;
if(
REALP(BgL_xz00_44))
{ /* ./Ieee/number.scm 497 */
BgL_auxz00_3629 = BgL_xz00_44
; }  else 
{ /* ./Ieee/number.scm 497 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5995z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_44, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17396))); 
exit( -1 );} 
BgL_r1z00_1068 = 
REAL_TO_DOUBLE(BgL_auxz00_3629); } 
{ /* ./Ieee/number.scm 497 */
double BgL_auxz00_3636;
BgL_auxz00_3636 = 
(BgL_r1z00_1068+BgL_arg1315z00_483); 
BgL_aux2617z00_1920 = 
DOUBLE_TO_REAL(BgL_auxz00_3636); } } } }  else 
{ /* ./Ieee/number.scm 496 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5996z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_45, "./Ieee/number.scm", ((long)17432)); 
BgL_aux2617z00_1920 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17432))); } } } }  else 
{ /* ./Ieee/number.scm 492 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5996z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_44, "./Ieee/number.scm", ((long)17483)); 
BgL_aux2617z00_1920 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17483))); } } } 
POP_TRACE(); 
return BgL_aux2617z00_1920;} } } } 
}



/* _2+ */
obj_t BGl__2zb2zb2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2044, obj_t BgL_xz00_2045, obj_t BgL_yz00_2046)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 482 */
return 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_xz00_2045, BgL_yz00_2046);} 
}



/* + */
BGL_EXPORTED_DEF obj_t BGl_zb2zb2zz__r4_numbers_6_5z00(obj_t BgL_xz00_46)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 506 */
{ /* ./Ieee/number.scm 507 */
obj_t BgL_symbol2622z00_1921;
BgL_symbol2622z00_1921 = BGl_symbol5997z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 507 */

PUSH_TRACE(BgL_symbol2622z00_1921); BUNSPEC; 
{ /* ./Ieee/number.scm 507 */
obj_t BgL_aux2621z00_1922;
{ 
obj_t BgL_sumz00_1077;obj_t BgL_xz00_1078;
BgL_sumz00_1077 = 
BINT(((long)0)); 
BgL_xz00_1078 = BgL_xz00_46; 
BgL_loopz00_1076:
{ /* ./Ieee/number.scm 507 */
bool_t BgL_test1327z00_1083;
BgL_test1327z00_1083 = 
PAIRP(BgL_xz00_1078); 
if(BgL_test1327z00_1083)
{ /* ./Ieee/number.scm 507 */
obj_t BgL_arg1329z00_1084;obj_t BgL_arg1330z00_1085;
{ /* ./Ieee/number.scm 507 */
obj_t BgL_arg1333z00_1086;
{ /* ./Ieee/number.scm 507 */
obj_t BgL_pairz00_1088;
if(BgL_test1327z00_1083)
{ /* ./Ieee/number.scm 507 */
BgL_pairz00_1088 = BgL_xz00_1078; }  else 
{ /* ./Ieee/number.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5997z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_xz00_1078, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17758))); 
exit( -1 );} 
BgL_arg1333z00_1086 = 
CAR(BgL_pairz00_1088); } 
BgL_arg1329z00_1084 = 
BGl_2zb2zb2zz__r4_numbers_6_5z00(BgL_sumz00_1077, BgL_arg1333z00_1086); } 
{ /* ./Ieee/number.scm 507 */
obj_t BgL_pairz00_1089;
if(BgL_test1327z00_1083)
{ /* ./Ieee/number.scm 507 */
BgL_pairz00_1089 = BgL_xz00_1078; }  else 
{ /* ./Ieee/number.scm 507 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5997z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_xz00_1078, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)17758))); 
exit( -1 );} 
BgL_arg1330z00_1085 = 
CDR(BgL_pairz00_1089); } 
{ 
obj_t BgL_xz00_3662;obj_t BgL_sumz00_3661;
BgL_sumz00_3661 = BgL_arg1329z00_1084; 
BgL_xz00_3662 = BgL_arg1330z00_1085; 
BgL_xz00_1078 = BgL_xz00_3662; 
BgL_sumz00_1077 = BgL_sumz00_3661; 
goto BgL_loopz00_1076;} }  else 
{ /* ./Ieee/number.scm 507 */
BgL_aux2621z00_1922 = BgL_sumz00_1077; } } } 
POP_TRACE(); 
return BgL_aux2621z00_1922;} } } } 
}



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



/* 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 */
{ /* ./Ieee/number.scm 519 */
obj_t BgL_symbol2626z00_1923;
BgL_symbol2626z00_1923 = BGl_symbol5998z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 519 */

PUSH_TRACE(BgL_symbol2626z00_1923); BUNSPEC; 
{ /* ./Ieee/number.scm 519 */
obj_t BgL_aux2625z00_1924;
{ /* ./Ieee/number.scm 519 */
bool_t BgL_test1338z00_491;
BgL_test1338z00_491 = 
INTEGERP(BgL_xz00_47); 
if(BgL_test1338z00_491)
{ /* ./Ieee/number.scm 519 */
{ /* ./Ieee/number.scm 521 */
bool_t BgL_test1339z00_492;
BgL_test1339z00_492 = 
INTEGERP(BgL_yz00_48); 
if(BgL_test1339z00_492)
{ /* ./Ieee/number.scm 521 */
{ /* ./Ieee/number.scm 522 */
long BgL_za71za7_1108;long BgL_za72za7_1109;
{ /* ./Ieee/number.scm 522 */
obj_t BgL_auxz00_3671;
if(BgL_test1338z00_491)
{ /* ./Ieee/number.scm 522 */
BgL_auxz00_3671 = BgL_xz00_47
; }  else 
{ /* ./Ieee/number.scm 522 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_47, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18164))); 
exit( -1 );} 
BgL_za71za7_1108 = 
(long)CINT(BgL_auxz00_3671); } 
{ /* ./Ieee/number.scm 522 */
obj_t BgL_auxz00_3677;
if(BgL_test1339z00_492)
{ /* ./Ieee/number.scm 522 */
BgL_auxz00_3677 = BgL_yz00_48
; }  else 
{ /* ./Ieee/number.scm 522 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_48, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18166))); 
exit( -1 );} 
BgL_za72za7_1109 = 
(long)CINT(BgL_auxz00_3677); } 
{ /* ./Ieee/number.scm 522 */
long BgL_auxz00_3683;
BgL_auxz00_3683 = 
(BgL_za71za7_1108*BgL_za72za7_1109); 
BgL_aux2625z00_1924 = 
BINT(BgL_auxz00_3683); } } }  else 
{ /* ./Ieee/number.scm 521 */
if(
REALP(BgL_yz00_48))
{ /* ./Ieee/number.scm 523 */
{ /* ./Ieee/number.scm 524 */
double BgL_arg1343z00_494;
{ /* ./Ieee/number.scm 524 */
long BgL_xz00_1111;
{ /* ./Ieee/number.scm 524 */
obj_t BgL_auxz00_3688;
if(BgL_test1338z00_491)
{ /* ./Ieee/number.scm 524 */
BgL_auxz00_3688 = BgL_xz00_47
; }  else 
{ /* ./Ieee/number.scm 524 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_47, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18211))); 
exit( -1 );} 
BgL_xz00_1111 = 
(long)CINT(BgL_auxz00_3688); } 
BgL_arg1343z00_494 = 
(double)(BgL_xz00_1111); } 
{ /* ./Ieee/number.scm 524 */
double BgL_r2z00_1113;
{ /* ./Ieee/number.scm 524 */
obj_t BgL_auxz00_3695;
if(
REALP(BgL_yz00_48))
{ /* ./Ieee/number.scm 524 */
BgL_auxz00_3695 = BgL_yz00_48
; }  else 
{ /* ./Ieee/number.scm 524 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_48, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18214))); 
exit( -1 );} 
BgL_r2z00_1113 = 
REAL_TO_DOUBLE(BgL_auxz00_3695); } 
{ /* ./Ieee/number.scm 524 */
double BgL_auxz00_3702;
BgL_auxz00_3702 = 
(BgL_arg1343z00_494*BgL_r2z00_1113); 
BgL_aux2625z00_1924 = 
DOUBLE_TO_REAL(BgL_auxz00_3702); } } } }  else 
{ /* ./Ieee/number.scm 523 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5999z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_48, "./Ieee/number.scm", ((long)18231)); 
BgL_aux2625z00_1924 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18231))); } } } }  else 
{ /* ./Ieee/number.scm 527 */
bool_t BgL_test1350z00_495;
BgL_test1350z00_495 = 
REALP(BgL_xz00_47); 
if(BgL_test1350z00_495)
{ /* ./Ieee/number.scm 527 */
{ /* ./Ieee/number.scm 529 */
bool_t BgL_test1351z00_496;
BgL_test1351z00_496 = 
REALP(BgL_yz00_48); 
if(BgL_test1351z00_496)
{ /* ./Ieee/number.scm 529 */
{ /* ./Ieee/number.scm 530 */
double BgL_r1z00_1119;double BgL_r2z00_1120;
{ /* ./Ieee/number.scm 530 */
obj_t BgL_auxz00_3712;
if(BgL_test1350z00_495)
{ /* ./Ieee/number.scm 530 */
BgL_auxz00_3712 = BgL_xz00_47
; }  else 
{ /* ./Ieee/number.scm 530 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_47, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18320))); 
exit( -1 );} 
BgL_r1z00_1119 = 
REAL_TO_DOUBLE(BgL_auxz00_3712); } 
{ /* ./Ieee/number.scm 530 */
obj_t BgL_auxz00_3718;
if(BgL_test1351z00_496)
{ /* ./Ieee/number.scm 530 */
BgL_auxz00_3718 = BgL_yz00_48
; }  else 
{ /* ./Ieee/number.scm 530 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_48, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18322))); 
exit( -1 );} 
BgL_r2z00_1120 = 
REAL_TO_DOUBLE(BgL_auxz00_3718); } 
{ /* ./Ieee/number.scm 530 */
double BgL_auxz00_3724;
BgL_auxz00_3724 = 
(BgL_r1z00_1119*BgL_r2z00_1120); 
BgL_aux2625z00_1924 = 
DOUBLE_TO_REAL(BgL_auxz00_3724); } } }  else 
{ /* ./Ieee/number.scm 531 */
bool_t BgL_test1353z00_497;
BgL_test1353z00_497 = 
INTEGERP(BgL_yz00_48); 
if(BgL_test1353z00_497)
{ /* ./Ieee/number.scm 531 */
{ /* ./Ieee/number.scm 532 */
double BgL_arg1355z00_498;
{ /* ./Ieee/number.scm 532 */
long BgL_xz00_1122;
{ /* ./Ieee/number.scm 532 */
obj_t BgL_auxz00_3729;
if(BgL_test1353z00_497)
{ /* ./Ieee/number.scm 532 */
BgL_auxz00_3729 = BgL_yz00_48
; }  else 
{ /* ./Ieee/number.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_48, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18369))); 
exit( -1 );} 
BgL_xz00_1122 = 
(long)CINT(BgL_auxz00_3729); } 
BgL_arg1355z00_498 = 
(double)(BgL_xz00_1122); } 
{ /* ./Ieee/number.scm 532 */
double BgL_r1z00_1123;
{ /* ./Ieee/number.scm 532 */
obj_t BgL_auxz00_3736;
if(
REALP(BgL_xz00_47))
{ /* ./Ieee/number.scm 532 */
BgL_auxz00_3736 = BgL_xz00_47
; }  else 
{ /* ./Ieee/number.scm 532 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol5998z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_47, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18351))); 
exit( -1 );} 
BgL_r1z00_1123 = 
REAL_TO_DOUBLE(BgL_auxz00_3736); } 
{ /* ./Ieee/number.scm 532 */
double BgL_auxz00_3743;
BgL_auxz00_3743 = 
(BgL_r1z00_1123*BgL_arg1355z00_498); 
BgL_aux2625z00_1924 = 
DOUBLE_TO_REAL(BgL_auxz00_3743); } } } }  else 
{ /* ./Ieee/number.scm 531 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5999z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_48, "./Ieee/number.scm", ((long)18387)); 
BgL_aux2625z00_1924 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18387))); } } } }  else 
{ /* ./Ieee/number.scm 527 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string5999z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_47, "./Ieee/number.scm", ((long)18438)); 
BgL_aux2625z00_1924 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18438))); } } } 
POP_TRACE(); 
return BgL_aux2625z00_1924;} } } } 
}



/* _2* */
obj_t BGl__2za2za2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2049, obj_t BgL_xz00_2050, obj_t BgL_yz00_2051)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 517 */
return 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_xz00_2050, BgL_yz00_2051);} 
}



/* * */
BGL_EXPORTED_DEF obj_t BGl_za2za2zz__r4_numbers_6_5z00(obj_t BgL_xz00_49)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 541 */
{ /* ./Ieee/number.scm 542 */
obj_t BgL_symbol2630z00_1925;
BgL_symbol2630z00_1925 = BGl_symbol6000z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 542 */

PUSH_TRACE(BgL_symbol2630z00_1925); BUNSPEC; 
{ /* ./Ieee/number.scm 542 */
obj_t BgL_aux2629z00_1926;
{ 
obj_t BgL_productz00_1132;obj_t BgL_xz00_1133;
BgL_productz00_1132 = 
BINT(((long)1)); 
BgL_xz00_1133 = BgL_xz00_49; 
BgL_loopz00_1131:
{ /* ./Ieee/number.scm 542 */
bool_t BgL_test1367z00_1138;
BgL_test1367z00_1138 = 
PAIRP(BgL_xz00_1133); 
if(BgL_test1367z00_1138)
{ /* ./Ieee/number.scm 542 */
obj_t BgL_arg1370z00_1139;obj_t BgL_arg1371z00_1140;
{ /* ./Ieee/number.scm 542 */
obj_t BgL_arg1374z00_1141;
{ /* ./Ieee/number.scm 542 */
obj_t BgL_pairz00_1143;
if(BgL_test1367z00_1138)
{ /* ./Ieee/number.scm 542 */
BgL_pairz00_1143 = BgL_xz00_1133; }  else 
{ /* ./Ieee/number.scm 542 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6000z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_xz00_1133, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18713))); 
exit( -1 );} 
BgL_arg1374z00_1141 = 
CAR(BgL_pairz00_1143); } 
BgL_arg1370z00_1139 = 
BGl_2za2za2zz__r4_numbers_6_5z00(BgL_productz00_1132, BgL_arg1374z00_1141); } 
{ /* ./Ieee/number.scm 542 */
obj_t BgL_pairz00_1144;
if(BgL_test1367z00_1138)
{ /* ./Ieee/number.scm 542 */
BgL_pairz00_1144 = BgL_xz00_1133; }  else 
{ /* ./Ieee/number.scm 542 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6000z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_xz00_1133, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)18713))); 
exit( -1 );} 
BgL_arg1371z00_1140 = 
CDR(BgL_pairz00_1144); } 
{ 
obj_t BgL_xz00_3769;obj_t BgL_productz00_3768;
BgL_productz00_3768 = BgL_arg1370z00_1139; 
BgL_xz00_3769 = BgL_arg1371z00_1140; 
BgL_xz00_1133 = BgL_xz00_3769; 
BgL_productz00_1132 = BgL_productz00_3768; 
goto BgL_loopz00_1131;} }  else 
{ /* ./Ieee/number.scm 542 */
BgL_aux2629z00_1926 = BgL_productz00_1132; } } } 
POP_TRACE(); 
return BgL_aux2629z00_1926;} } } } 
}



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



/* 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 */
{ /* ./Ieee/number.scm 553 */
obj_t BgL_symbol2634z00_1927;
BgL_symbol2634z00_1927 = BGl_symbol6001z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 553 */

PUSH_TRACE(BgL_symbol2634z00_1927); BUNSPEC; 
{ /* ./Ieee/number.scm 553 */
obj_t BgL_aux2633z00_1928;
{ /* ./Ieee/number.scm 553 */
bool_t BgL_test1379z00_506;
BgL_test1379z00_506 = 
INTEGERP(BgL_xz00_50); 
if(BgL_test1379z00_506)
{ /* ./Ieee/number.scm 553 */
{ /* ./Ieee/number.scm 555 */
bool_t BgL_test1380z00_507;
BgL_test1380z00_507 = 
INTEGERP(BgL_yz00_51); 
if(BgL_test1380z00_507)
{ /* ./Ieee/number.scm 555 */
{ /* ./Ieee/number.scm 556 */
long BgL_za71za7_1163;long BgL_za72za7_1164;
{ /* ./Ieee/number.scm 556 */
obj_t BgL_auxz00_3778;
if(BgL_test1379z00_506)
{ /* ./Ieee/number.scm 556 */
BgL_auxz00_3778 = BgL_xz00_50
; }  else 
{ /* ./Ieee/number.scm 556 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_50, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19124))); 
exit( -1 );} 
BgL_za71za7_1163 = 
(long)CINT(BgL_auxz00_3778); } 
{ /* ./Ieee/number.scm 556 */
obj_t BgL_auxz00_3784;
if(BgL_test1380z00_507)
{ /* ./Ieee/number.scm 556 */
BgL_auxz00_3784 = BgL_yz00_51
; }  else 
{ /* ./Ieee/number.scm 556 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_51, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19124))); 
exit( -1 );} 
BgL_za72za7_1164 = 
(long)CINT(BgL_auxz00_3784); } 
{ /* ./Ieee/number.scm 556 */
long BgL_auxz00_3790;
BgL_auxz00_3790 = 
(BgL_za71za7_1163-BgL_za72za7_1164); 
BgL_aux2633z00_1928 = 
BINT(BgL_auxz00_3790); } } }  else 
{ /* ./Ieee/number.scm 555 */
if(
REALP(BgL_yz00_51))
{ /* ./Ieee/number.scm 557 */
{ /* ./Ieee/number.scm 558 */
double BgL_arg1384z00_509;
{ /* ./Ieee/number.scm 558 */
long BgL_xz00_1166;
{ /* ./Ieee/number.scm 558 */
obj_t BgL_auxz00_3795;
if(BgL_test1379z00_506)
{ /* ./Ieee/number.scm 558 */
BgL_auxz00_3795 = BgL_xz00_50
; }  else 
{ /* ./Ieee/number.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_50, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19176))); 
exit( -1 );} 
BgL_xz00_1166 = 
(long)CINT(BgL_auxz00_3795); } 
BgL_arg1384z00_509 = 
(double)(BgL_xz00_1166); } 
{ /* ./Ieee/number.scm 558 */
double BgL_r2z00_1168;
{ /* ./Ieee/number.scm 558 */
obj_t BgL_auxz00_3802;
if(
REALP(BgL_yz00_51))
{ /* ./Ieee/number.scm 558 */
BgL_auxz00_3802 = BgL_yz00_51
; }  else 
{ /* ./Ieee/number.scm 558 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_51, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19179))); 
exit( -1 );} 
BgL_r2z00_1168 = 
REAL_TO_DOUBLE(BgL_auxz00_3802); } 
{ /* ./Ieee/number.scm 558 */
double BgL_auxz00_3809;
BgL_auxz00_3809 = 
(BgL_arg1384z00_509-BgL_r2z00_1168); 
BgL_aux2633z00_1928 = 
DOUBLE_TO_REAL(BgL_auxz00_3809); } } } }  else 
{ /* ./Ieee/number.scm 557 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6002z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_51, "./Ieee/number.scm", ((long)19196)); 
BgL_aux2633z00_1928 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19196))); } } } }  else 
{ /* ./Ieee/number.scm 561 */
bool_t BgL_test1391z00_510;
BgL_test1391z00_510 = 
REALP(BgL_xz00_50); 
if(BgL_test1391z00_510)
{ /* ./Ieee/number.scm 561 */
{ /* ./Ieee/number.scm 563 */
bool_t BgL_test1392z00_511;
BgL_test1392z00_511 = 
REALP(BgL_yz00_51); 
if(BgL_test1392z00_511)
{ /* ./Ieee/number.scm 563 */
{ /* ./Ieee/number.scm 564 */
double BgL_r1z00_1174;double BgL_r2z00_1175;
{ /* ./Ieee/number.scm 564 */
obj_t BgL_auxz00_3819;
if(BgL_test1391z00_510)
{ /* ./Ieee/number.scm 564 */
BgL_auxz00_3819 = BgL_xz00_50
; }  else 
{ /* ./Ieee/number.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_50, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19285))); 
exit( -1 );} 
BgL_r1z00_1174 = 
REAL_TO_DOUBLE(BgL_auxz00_3819); } 
{ /* ./Ieee/number.scm 564 */
obj_t BgL_auxz00_3825;
if(BgL_test1392z00_511)
{ /* ./Ieee/number.scm 564 */
BgL_auxz00_3825 = BgL_yz00_51
; }  else 
{ /* ./Ieee/number.scm 564 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_51, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19287))); 
exit( -1 );} 
BgL_r2z00_1175 = 
REAL_TO_DOUBLE(BgL_auxz00_3825); } 
{ /* ./Ieee/number.scm 564 */
double BgL_auxz00_3831;
BgL_auxz00_3831 = 
(BgL_r1z00_1174-BgL_r2z00_1175); 
BgL_aux2633z00_1928 = 
DOUBLE_TO_REAL(BgL_auxz00_3831); } } }  else 
{ /* ./Ieee/number.scm 565 */
bool_t BgL_test1394z00_512;
BgL_test1394z00_512 = 
INTEGERP(BgL_yz00_51); 
if(BgL_test1394z00_512)
{ /* ./Ieee/number.scm 565 */
{ /* ./Ieee/number.scm 566 */
double BgL_arg1396z00_513;
{ /* ./Ieee/number.scm 566 */
long BgL_xz00_1177;
{ /* ./Ieee/number.scm 566 */
obj_t BgL_auxz00_3836;
if(BgL_test1394z00_512)
{ /* ./Ieee/number.scm 566 */
BgL_auxz00_3836 = BgL_yz00_51
; }  else 
{ /* ./Ieee/number.scm 566 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_51, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19334))); 
exit( -1 );} 
BgL_xz00_1177 = 
(long)CINT(BgL_auxz00_3836); } 
BgL_arg1396z00_513 = 
(double)(BgL_xz00_1177); } 
{ /* ./Ieee/number.scm 566 */
double BgL_r1z00_1178;
{ /* ./Ieee/number.scm 566 */
obj_t BgL_auxz00_3843;
if(
REALP(BgL_xz00_50))
{ /* ./Ieee/number.scm 566 */
BgL_auxz00_3843 = BgL_xz00_50
; }  else 
{ /* ./Ieee/number.scm 566 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6001z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_50, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19316))); 
exit( -1 );} 
BgL_r1z00_1178 = 
REAL_TO_DOUBLE(BgL_auxz00_3843); } 
{ /* ./Ieee/number.scm 566 */
double BgL_auxz00_3850;
BgL_auxz00_3850 = 
(BgL_r1z00_1178-BgL_arg1396z00_513); 
BgL_aux2633z00_1928 = 
DOUBLE_TO_REAL(BgL_auxz00_3850); } } } }  else 
{ /* ./Ieee/number.scm 565 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6002z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_51, "./Ieee/number.scm", ((long)19352)); 
BgL_aux2633z00_1928 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19352))); } } } }  else 
{ /* ./Ieee/number.scm 561 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6002z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_50, "./Ieee/number.scm", ((long)19403)); 
BgL_aux2633z00_1928 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19403))); } } } 
POP_TRACE(); 
return BgL_aux2633z00_1928;} } } } 
}



/* _2- */
obj_t BGl__2zd2zd2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2054, obj_t BgL_xz00_2055, obj_t BgL_yz00_2056)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 551 */
return 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_2055, BgL_yz00_2056);} 
}



/* - */
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 */
{ /* ./Ieee/number.scm 576 */
obj_t BgL_symbol2638z00_1929;
BgL_symbol2638z00_1929 = BGl_symbol6003z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 576 */

PUSH_TRACE(BgL_symbol2638z00_1929); BUNSPEC; 
{ /* ./Ieee/number.scm 576 */
obj_t BgL_aux2637z00_1930;
{ /* ./Ieee/number.scm 576 */
bool_t BgL_test1407z00_514;
BgL_test1407z00_514 = 
PAIRP(BgL_yz00_53); 
if(BgL_test1407z00_514)
{ /* ./Ieee/number.scm 577 */
obj_t BgL_arg1409z00_518;obj_t BgL_arg1410z00_519;
{ /* ./Ieee/number.scm 577 */
obj_t BgL_arg1413z00_520;
{ /* ./Ieee/number.scm 577 */
obj_t BgL_pairz00_1187;
if(BgL_test1407z00_514)
{ /* ./Ieee/number.scm 577 */
BgL_pairz00_1187 = BgL_yz00_53; }  else 
{ /* ./Ieee/number.scm 577 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6003z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_53, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19725))); 
exit( -1 );} 
BgL_arg1413z00_520 = 
CAR(BgL_pairz00_1187); } 
BgL_arg1409z00_518 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_52, BgL_arg1413z00_520); } 
{ /* ./Ieee/number.scm 578 */
obj_t BgL_pairz00_1188;
if(BgL_test1407z00_514)
{ /* ./Ieee/number.scm 578 */
BgL_pairz00_1188 = BgL_yz00_53; }  else 
{ /* ./Ieee/number.scm 578 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6003z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_53, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19746))); 
exit( -1 );} 
BgL_arg1410z00_519 = 
CDR(BgL_pairz00_1188); } 
{ 
obj_t BgL_resultz00_1190;obj_t BgL_argsz00_1191;
BgL_resultz00_1190 = BgL_arg1409z00_518; 
BgL_argsz00_1191 = BgL_arg1410z00_519; 
BgL_loopz00_1189:
{ /* ./Ieee/number.scm 577 */
bool_t BgL_test1417z00_1196;
BgL_test1417z00_1196 = 
PAIRP(BgL_argsz00_1191); 
if(BgL_test1417z00_1196)
{ /* ./Ieee/number.scm 577 */
obj_t BgL_arg1419z00_1197;obj_t BgL_arg1420z00_1198;
{ /* ./Ieee/number.scm 577 */
obj_t BgL_arg1423z00_1199;
{ /* ./Ieee/number.scm 577 */
obj_t BgL_pairz00_1201;
if(BgL_test1417z00_1196)
{ /* ./Ieee/number.scm 577 */
BgL_pairz00_1201 = BgL_argsz00_1191; }  else 
{ /* ./Ieee/number.scm 577 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6003z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_argsz00_1191, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19695))); 
exit( -1 );} 
BgL_arg1423z00_1199 = 
CAR(BgL_pairz00_1201); } 
BgL_arg1419z00_1197 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(BgL_resultz00_1190, BgL_arg1423z00_1199); } 
{ /* ./Ieee/number.scm 577 */
obj_t BgL_pairz00_1202;
if(BgL_test1417z00_1196)
{ /* ./Ieee/number.scm 577 */
BgL_pairz00_1202 = BgL_argsz00_1191; }  else 
{ /* ./Ieee/number.scm 577 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6003z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_argsz00_1191, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)19695))); 
exit( -1 );} 
BgL_arg1420z00_1198 = 
CDR(BgL_pairz00_1202); } 
{ 
obj_t BgL_argsz00_3889;obj_t BgL_resultz00_3888;
BgL_resultz00_3888 = BgL_arg1419z00_1197; 
BgL_argsz00_3889 = BgL_arg1420z00_1198; 
BgL_argsz00_1191 = BgL_argsz00_3889; 
BgL_resultz00_1190 = BgL_resultz00_3888; 
goto BgL_loopz00_1189;} }  else 
{ /* ./Ieee/number.scm 577 */
BgL_aux2637z00_1930 = BgL_resultz00_1190; } } } }  else 
{ /* ./Ieee/number.scm 576 */
BgL_aux2637z00_1930 = 
BGl_2zd2zd2zz__r4_numbers_6_5z00(
BINT(((long)0)), BgL_xz00_52); } } 
POP_TRACE(); 
return BgL_aux2637z00_1930;} } } } 
}



/* _- */
obj_t BGl__zd2zd2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2057, obj_t BgL_xz00_2058, obj_t BgL_yz00_2059)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 575 */
return 
BGl_zd2zd2zz__r4_numbers_6_5z00(BgL_xz00_2058, BgL_yz00_2059);} 
}



/* 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 */
{ /* ./Ieee/number.scm 589 */
obj_t BgL_symbol2642z00_1931;
BgL_symbol2642z00_1931 = BGl_symbol6004z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 589 */

PUSH_TRACE(BgL_symbol2642z00_1931); BUNSPEC; 
{ /* ./Ieee/number.scm 589 */
obj_t BgL_aux2641z00_1932;
{ /* ./Ieee/number.scm 589 */
bool_t BgL_test1430z00_525;
BgL_test1430z00_525 = 
INTEGERP(BgL_xz00_54); 
if(BgL_test1430z00_525)
{ /* ./Ieee/number.scm 589 */
{ /* ./Ieee/number.scm 591 */
bool_t BgL_test1431z00_526;
BgL_test1431z00_526 = 
INTEGERP(BgL_yz00_55); 
if(BgL_test1431z00_526)
{ /* ./Ieee/number.scm 591 */
{ /* ./Ieee/number.scm 592 */
bool_t BgL_test1432z00_527;
{ /* ./Ieee/number.scm 592 */
long BgL_arg1441z00_530;
{ /* ./Ieee/number.scm 592 */
long BgL_n1z00_1221;long BgL_n2z00_1222;
{ /* ./Ieee/number.scm 592 */
obj_t BgL_auxz00_3899;
if(BgL_test1430z00_525)
{ /* ./Ieee/number.scm 592 */
BgL_auxz00_3899 = BgL_xz00_54
; }  else 
{ /* ./Ieee/number.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_54, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20171))); 
exit( -1 );} 
BgL_n1z00_1221 = 
(long)CINT(BgL_auxz00_3899); } 
{ /* ./Ieee/number.scm 592 */
obj_t BgL_auxz00_3905;
if(BgL_test1431z00_526)
{ /* ./Ieee/number.scm 592 */
BgL_auxz00_3905 = BgL_yz00_55
; }  else 
{ /* ./Ieee/number.scm 592 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_55, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20173))); 
exit( -1 );} 
BgL_n2z00_1222 = 
(long)CINT(BgL_auxz00_3905); } 
BgL_arg1441z00_530 = 
(BgL_n1z00_1221%BgL_n2z00_1222); } 
BgL_test1432z00_527 = 
(BgL_arg1441z00_530==((long)0)); } 
if(BgL_test1432z00_527)
{ /* ./Ieee/number.scm 593 */
long BgL_za71za7_1225;long BgL_za72za7_1226;
{ /* ./Ieee/number.scm 593 */
obj_t BgL_auxz00_3914;
if(
INTEGERP(BgL_xz00_54))
{ /* ./Ieee/number.scm 593 */
BgL_auxz00_3914 = BgL_xz00_54
; }  else 
{ /* ./Ieee/number.scm 593 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_54, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20192))); 
exit( -1 );} 
BgL_za71za7_1225 = 
(long)CINT(BgL_auxz00_3914); } 
{ /* ./Ieee/number.scm 593 */
obj_t BgL_auxz00_3921;
if(
INTEGERP(BgL_yz00_55))
{ /* ./Ieee/number.scm 593 */
BgL_auxz00_3921 = BgL_yz00_55
; }  else 
{ /* ./Ieee/number.scm 593 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_55, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20194))); 
exit( -1 );} 
BgL_za72za7_1226 = 
(long)CINT(BgL_auxz00_3921); } 
{ /* ./Ieee/number.scm 593 */
long BgL_auxz00_3928;
BgL_auxz00_3928 = 
(BgL_za71za7_1225/BgL_za72za7_1226); 
BgL_aux2641z00_1932 = 
BINT(BgL_auxz00_3928); } }  else 
{ /* ./Ieee/number.scm 594 */
double BgL_arg1435z00_528;double BgL_arg1436z00_529;
{ /* ./Ieee/number.scm 594 */
long BgL_xz00_1227;
{ /* ./Ieee/number.scm 594 */
obj_t BgL_auxz00_3931;
if(
INTEGERP(BgL_xz00_54))
{ /* ./Ieee/number.scm 594 */
BgL_auxz00_3931 = BgL_xz00_54
; }  else 
{ /* ./Ieee/number.scm 594 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_54, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20226))); 
exit( -1 );} 
BgL_xz00_1227 = 
(long)CINT(BgL_auxz00_3931); } 
BgL_arg1435z00_528 = 
(double)(BgL_xz00_1227); } 
{ /* ./Ieee/number.scm 594 */
long BgL_xz00_1228;
{ /* ./Ieee/number.scm 594 */
obj_t BgL_auxz00_3939;
if(
INTEGERP(BgL_yz00_55))
{ /* ./Ieee/number.scm 594 */
BgL_auxz00_3939 = BgL_yz00_55
; }  else 
{ /* ./Ieee/number.scm 594 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_55, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20245))); 
exit( -1 );} 
BgL_xz00_1228 = 
(long)CINT(BgL_auxz00_3939); } 
BgL_arg1436z00_529 = 
(double)(BgL_xz00_1228); } 
{ /* ./Ieee/number.scm 594 */
double BgL_auxz00_3947;
BgL_auxz00_3947 = 
(BgL_arg1435z00_528/BgL_arg1436z00_529); 
BgL_aux2641z00_1932 = 
DOUBLE_TO_REAL(BgL_auxz00_3947); } } } }  else 
{ /* ./Ieee/number.scm 591 */
if(
REALP(BgL_yz00_55))
{ /* ./Ieee/number.scm 595 */
{ /* ./Ieee/number.scm 596 */
double BgL_arg1448z00_533;
{ /* ./Ieee/number.scm 596 */
long BgL_xz00_1232;
{ /* ./Ieee/number.scm 596 */
obj_t BgL_auxz00_3952;
if(BgL_test1430z00_525)
{ /* ./Ieee/number.scm 596 */
BgL_auxz00_3952 = BgL_xz00_54
; }  else 
{ /* ./Ieee/number.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_54, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20292))); 
exit( -1 );} 
BgL_xz00_1232 = 
(long)CINT(BgL_auxz00_3952); } 
BgL_arg1448z00_533 = 
(double)(BgL_xz00_1232); } 
{ /* ./Ieee/number.scm 596 */
double BgL_r2z00_1234;
{ /* ./Ieee/number.scm 596 */
obj_t BgL_auxz00_3959;
if(
REALP(BgL_yz00_55))
{ /* ./Ieee/number.scm 596 */
BgL_auxz00_3959 = BgL_yz00_55
; }  else 
{ /* ./Ieee/number.scm 596 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_55, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20295))); 
exit( -1 );} 
BgL_r2z00_1234 = 
REAL_TO_DOUBLE(BgL_auxz00_3959); } 
{ /* ./Ieee/number.scm 596 */
double BgL_auxz00_3966;
BgL_auxz00_3966 = 
(BgL_arg1448z00_533/BgL_r2z00_1234); 
BgL_aux2641z00_1932 = 
DOUBLE_TO_REAL(BgL_auxz00_3966); } } } }  else 
{ /* ./Ieee/number.scm 595 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6005z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_55, "./Ieee/number.scm", ((long)20312)); 
BgL_aux2641z00_1932 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20312))); } } } }  else 
{ /* ./Ieee/number.scm 599 */
bool_t BgL_test1455z00_534;
BgL_test1455z00_534 = 
REALP(BgL_xz00_54); 
if(BgL_test1455z00_534)
{ /* ./Ieee/number.scm 599 */
{ /* ./Ieee/number.scm 601 */
bool_t BgL_test1456z00_535;
BgL_test1456z00_535 = 
REALP(BgL_yz00_55); 
if(BgL_test1456z00_535)
{ /* ./Ieee/number.scm 601 */
{ /* ./Ieee/number.scm 602 */
double BgL_r1z00_1240;double BgL_r2z00_1241;
{ /* ./Ieee/number.scm 602 */
obj_t BgL_auxz00_3976;
if(BgL_test1455z00_534)
{ /* ./Ieee/number.scm 602 */
BgL_auxz00_3976 = BgL_xz00_54
; }  else 
{ /* ./Ieee/number.scm 602 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_54, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20401))); 
exit( -1 );} 
BgL_r1z00_1240 = 
REAL_TO_DOUBLE(BgL_auxz00_3976); } 
{ /* ./Ieee/number.scm 602 */
obj_t BgL_auxz00_3982;
if(BgL_test1456z00_535)
{ /* ./Ieee/number.scm 602 */
BgL_auxz00_3982 = BgL_yz00_55
; }  else 
{ /* ./Ieee/number.scm 602 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_55, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20403))); 
exit( -1 );} 
BgL_r2z00_1241 = 
REAL_TO_DOUBLE(BgL_auxz00_3982); } 
{ /* ./Ieee/number.scm 602 */
double BgL_auxz00_3988;
BgL_auxz00_3988 = 
(BgL_r1z00_1240/BgL_r2z00_1241); 
BgL_aux2641z00_1932 = 
DOUBLE_TO_REAL(BgL_auxz00_3988); } } }  else 
{ /* ./Ieee/number.scm 603 */
bool_t BgL_test1458z00_536;
BgL_test1458z00_536 = 
INTEGERP(BgL_yz00_55); 
if(BgL_test1458z00_536)
{ /* ./Ieee/number.scm 603 */
{ /* ./Ieee/number.scm 604 */
double BgL_arg1461z00_537;
{ /* ./Ieee/number.scm 604 */
long BgL_xz00_1243;
{ /* ./Ieee/number.scm 604 */
obj_t BgL_auxz00_3993;
if(BgL_test1458z00_536)
{ /* ./Ieee/number.scm 604 */
BgL_auxz00_3993 = BgL_yz00_55
; }  else 
{ /* ./Ieee/number.scm 604 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_55, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20450))); 
exit( -1 );} 
BgL_xz00_1243 = 
(long)CINT(BgL_auxz00_3993); } 
BgL_arg1461z00_537 = 
(double)(BgL_xz00_1243); } 
{ /* ./Ieee/number.scm 604 */
double BgL_r1z00_1244;
{ /* ./Ieee/number.scm 604 */
obj_t BgL_auxz00_4000;
if(
REALP(BgL_xz00_54))
{ /* ./Ieee/number.scm 604 */
BgL_auxz00_4000 = BgL_xz00_54
; }  else 
{ /* ./Ieee/number.scm 604 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6004z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_54, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20432))); 
exit( -1 );} 
BgL_r1z00_1244 = 
REAL_TO_DOUBLE(BgL_auxz00_4000); } 
{ /* ./Ieee/number.scm 604 */
double BgL_auxz00_4007;
BgL_auxz00_4007 = 
(BgL_r1z00_1244/BgL_arg1461z00_537); 
BgL_aux2641z00_1932 = 
DOUBLE_TO_REAL(BgL_auxz00_4007); } } } }  else 
{ /* ./Ieee/number.scm 603 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6005z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_55, "./Ieee/number.scm", ((long)20468)); 
BgL_aux2641z00_1932 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20468))); } } } }  else 
{ /* ./Ieee/number.scm 599 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6005z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_54, "./Ieee/number.scm", ((long)20519)); 
BgL_aux2641z00_1932 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20519))); } } } 
POP_TRACE(); 
return BgL_aux2641z00_1932;} } } } 
}



/* _2/ */
obj_t BGl__2zf2zf2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2060, obj_t BgL_xz00_2061, obj_t BgL_yz00_2062)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 587 */
return 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_2061, BgL_yz00_2062);} 
}



/* / */
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 */
{ /* ./Ieee/number.scm 614 */
obj_t BgL_symbol2646z00_1933;
BgL_symbol2646z00_1933 = BGl_symbol6006z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 614 */

PUSH_TRACE(BgL_symbol2646z00_1933); BUNSPEC; 
{ /* ./Ieee/number.scm 614 */
obj_t BgL_aux2645z00_1934;
{ /* ./Ieee/number.scm 614 */
bool_t BgL_test1472z00_538;
BgL_test1472z00_538 = 
PAIRP(BgL_yz00_57); 
if(BgL_test1472z00_538)
{ /* ./Ieee/number.scm 615 */
obj_t BgL_arg1474z00_542;obj_t BgL_arg1475z00_543;
{ /* ./Ieee/number.scm 615 */
obj_t BgL_arg1478z00_544;
{ /* ./Ieee/number.scm 615 */
obj_t BgL_pairz00_1253;
if(BgL_test1472z00_538)
{ /* ./Ieee/number.scm 615 */
BgL_pairz00_1253 = BgL_yz00_57; }  else 
{ /* ./Ieee/number.scm 615 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6006z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_57, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20841))); 
exit( -1 );} 
BgL_arg1478z00_544 = 
CAR(BgL_pairz00_1253); } 
BgL_arg1474z00_542 = 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_56, BgL_arg1478z00_544); } 
{ /* ./Ieee/number.scm 616 */
obj_t BgL_pairz00_1254;
if(BgL_test1472z00_538)
{ /* ./Ieee/number.scm 616 */
BgL_pairz00_1254 = BgL_yz00_57; }  else 
{ /* ./Ieee/number.scm 616 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6006z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_57, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20859))); 
exit( -1 );} 
BgL_arg1475z00_543 = 
CDR(BgL_pairz00_1254); } 
{ 
obj_t BgL_resultz00_1256;obj_t BgL_za7za7_1257;
BgL_resultz00_1256 = BgL_arg1474z00_542; 
BgL_za7za7_1257 = BgL_arg1475z00_543; 
BgL_loopz00_1255:
{ /* ./Ieee/number.scm 615 */
bool_t BgL_test1482z00_1262;
BgL_test1482z00_1262 = 
PAIRP(BgL_za7za7_1257); 
if(BgL_test1482z00_1262)
{ /* ./Ieee/number.scm 615 */
obj_t BgL_arg1484z00_1263;obj_t BgL_arg1485z00_1264;
{ /* ./Ieee/number.scm 615 */
obj_t BgL_arg1488z00_1265;
{ /* ./Ieee/number.scm 615 */
obj_t BgL_pairz00_1267;
if(BgL_test1482z00_1262)
{ /* ./Ieee/number.scm 615 */
BgL_pairz00_1267 = BgL_za7za7_1257; }  else 
{ /* ./Ieee/number.scm 615 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6006z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_1257, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20811))); 
exit( -1 );} 
BgL_arg1488z00_1265 = 
CAR(BgL_pairz00_1267); } 
BgL_arg1484z00_1263 = 
BGl_2zf2zf2zz__r4_numbers_6_5z00(BgL_resultz00_1256, BgL_arg1488z00_1265); } 
{ /* ./Ieee/number.scm 615 */
obj_t BgL_pairz00_1268;
if(BgL_test1482z00_1262)
{ /* ./Ieee/number.scm 615 */
BgL_pairz00_1268 = BgL_za7za7_1257; }  else 
{ /* ./Ieee/number.scm 615 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6006z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_za7za7_1257, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)20811))); 
exit( -1 );} 
BgL_arg1485z00_1264 = 
CDR(BgL_pairz00_1268); } 
{ 
obj_t BgL_za7za7_4046;obj_t BgL_resultz00_4045;
BgL_resultz00_4045 = BgL_arg1484z00_1263; 
BgL_za7za7_4046 = BgL_arg1485z00_1264; 
BgL_za7za7_1257 = BgL_za7za7_4046; 
BgL_resultz00_1256 = BgL_resultz00_4045; 
goto BgL_loopz00_1255;} }  else 
{ /* ./Ieee/number.scm 615 */
BgL_aux2645z00_1934 = BgL_resultz00_1256; } } } }  else 
{ /* ./Ieee/number.scm 614 */
BgL_aux2645z00_1934 = 
BGl_2zf2zf2zz__r4_numbers_6_5z00(
BINT(((long)1)), BgL_xz00_56); } } 
POP_TRACE(); 
return BgL_aux2645z00_1934;} } } } 
}



/* _/ */
obj_t BGl__zf2zf2zz__r4_numbers_6_5z00(obj_t BgL_envz00_2063, obj_t BgL_xz00_2064, obj_t BgL_yz00_2065)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 613 */
return 
BGl_zf2zf2zz__r4_numbers_6_5z00(BgL_xz00_2064, BgL_yz00_2065);} 
}



/* abs */
BGL_EXPORTED_DEF obj_t BGl_absz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_58)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 626 */
{ /* ./Ieee/number.scm 628 */
obj_t BgL_symbol2650z00_1935;
BgL_symbol2650z00_1935 = BGl_symbol6007z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 628 */

PUSH_TRACE(BgL_symbol2650z00_1935); BUNSPEC; 
{ /* ./Ieee/number.scm 628 */
obj_t BgL_aux2649z00_1936;
{ /* ./Ieee/number.scm 628 */
bool_t BgL_test1495z00_549;
BgL_test1495z00_549 = 
INTEGERP(BgL_xz00_58); 
if(BgL_test1495z00_549)
{ /* ./Ieee/number.scm 628 */
{ /* ./Ieee/number.scm 629 */
long BgL_res2483z00_1291;
{ /* ./Ieee/number.scm 629 */
long BgL_nz00_1286;
{ /* ./Ieee/number.scm 629 */
obj_t BgL_auxz00_4054;
if(BgL_test1495z00_549)
{ /* ./Ieee/number.scm 629 */
BgL_auxz00_4054 = BgL_xz00_58
; }  else 
{ /* ./Ieee/number.scm 629 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6007z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_58, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)21236))); 
exit( -1 );} 
BgL_nz00_1286 = 
(long)CINT(BgL_auxz00_4054); } 
if(
(BgL_nz00_1286<((long)0)))
{ /* ./Ieee/number.scm 629 */
BgL_res2483z00_1291 = 
NEG(BgL_nz00_1286); }  else 
{ /* ./Ieee/number.scm 629 */
BgL_res2483z00_1291 = BgL_nz00_1286; } } 
BgL_aux2649z00_1936 = 
BINT(BgL_res2483z00_1291); } }  else 
{ /* ./Ieee/number.scm 630 */
bool_t BgL_test1497z00_550;
BgL_test1497z00_550 = 
REALP(BgL_xz00_58); 
if(BgL_test1497z00_550)
{ /* ./Ieee/number.scm 630 */
{ /* ./Ieee/number.scm 631 */
double BgL_res2484z00_1298;
{ /* ./Ieee/number.scm 631 */
double BgL_rz00_1293;
{ /* ./Ieee/number.scm 631 */
obj_t BgL_auxz00_4066;
if(BgL_test1497z00_550)
{ /* ./Ieee/number.scm 631 */
BgL_auxz00_4066 = BgL_xz00_58
; }  else 
{ /* ./Ieee/number.scm 631 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6007z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_58, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)21273))); 
exit( -1 );} 
BgL_rz00_1293 = 
REAL_TO_DOUBLE(BgL_auxz00_4066); } 
if(
(BgL_rz00_1293<((double)0.0)))
{ /* ./Ieee/number.scm 631 */
BgL_res2484z00_1298 = 
NEG(BgL_rz00_1293); }  else 
{ /* ./Ieee/number.scm 631 */
BgL_res2484z00_1298 = BgL_rz00_1293; } } 
BgL_aux2649z00_1936 = 
DOUBLE_TO_REAL(BgL_res2484z00_1298); } }  else 
{ /* ./Ieee/number.scm 630 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6008z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_58, "./Ieee/number.scm", ((long)21296)); 
BgL_aux2649z00_1936 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)21296))); } } } 
POP_TRACE(); 
return BgL_aux2649z00_1936;} } } } 
}



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



/* floor */
BGL_EXPORTED_DEF obj_t BGl_floorz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_59)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 638 */
{ /* ./Ieee/number.scm 640 */
obj_t BgL_symbol2654z00_1937;
BgL_symbol2654z00_1937 = BGl_symbol6009z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 640 */

PUSH_TRACE(BgL_symbol2654z00_1937); BUNSPEC; 
{ /* ./Ieee/number.scm 640 */
obj_t BgL_aux2653z00_1938;
if(
INTEGERP(BgL_xz00_59))
{ /* ./Ieee/number.scm 640 */
BgL_aux2653z00_1938 = BgL_xz00_59; }  else 
{ /* ./Ieee/number.scm 642 */
bool_t BgL_test1504z00_552;
BgL_test1504z00_552 = 
REALP(BgL_xz00_59); 
if(BgL_test1504z00_552)
{ /* ./Ieee/number.scm 642 */
{ /* ./Ieee/number.scm 643 */
double BgL_rz00_1304;
{ /* ./Ieee/number.scm 643 */
obj_t BgL_auxz00_4086;
if(BgL_test1504z00_552)
{ /* ./Ieee/number.scm 643 */
BgL_auxz00_4086 = BgL_xz00_59
; }  else 
{ /* ./Ieee/number.scm 643 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6009z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_59, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)21644))); 
exit( -1 );} 
BgL_rz00_1304 = 
REAL_TO_DOUBLE(BgL_auxz00_4086); } 
{ /* ./Ieee/number.scm 643 */
double BgL_auxz00_4092;
BgL_auxz00_4092 = 
floor(BgL_rz00_1304); 
BgL_aux2653z00_1938 = 
DOUBLE_TO_REAL(BgL_auxz00_4092); } } }  else 
{ /* ./Ieee/number.scm 642 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6010z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_59, "./Ieee/number.scm", ((long)21667)); 
BgL_aux2653z00_1938 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)21667))); } } 
POP_TRACE(); 
return BgL_aux2653z00_1938;} } } } 
}



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



/* ceiling */
BGL_EXPORTED_DEF obj_t BGl_ceilingz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_60)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 650 */
{ /* ./Ieee/number.scm 652 */
obj_t BgL_symbol2658z00_1939;
BgL_symbol2658z00_1939 = BGl_symbol6011z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 652 */

PUSH_TRACE(BgL_symbol2658z00_1939); BUNSPEC; 
{ /* ./Ieee/number.scm 652 */
obj_t BgL_aux2657z00_1940;
if(
INTEGERP(BgL_xz00_60))
{ /* ./Ieee/number.scm 652 */
BgL_aux2657z00_1940 = BgL_xz00_60; }  else 
{ /* ./Ieee/number.scm 654 */
bool_t BgL_test1511z00_554;
BgL_test1511z00_554 = 
REALP(BgL_xz00_60); 
if(BgL_test1511z00_554)
{ /* ./Ieee/number.scm 654 */
{ /* ./Ieee/number.scm 655 */
double BgL_rz00_1310;
{ /* ./Ieee/number.scm 655 */
obj_t BgL_auxz00_4105;
if(BgL_test1511z00_554)
{ /* ./Ieee/number.scm 655 */
BgL_auxz00_4105 = BgL_xz00_60
; }  else 
{ /* ./Ieee/number.scm 655 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6011z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_60, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)22021))); 
exit( -1 );} 
BgL_rz00_1310 = 
REAL_TO_DOUBLE(BgL_auxz00_4105); } 
{ /* ./Ieee/number.scm 655 */
double BgL_auxz00_4111;
BgL_auxz00_4111 = 
ceil(BgL_rz00_1310); 
BgL_aux2657z00_1940 = 
DOUBLE_TO_REAL(BgL_auxz00_4111); } } }  else 
{ /* ./Ieee/number.scm 654 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6012z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_60, "./Ieee/number.scm", ((long)22044)); 
BgL_aux2657z00_1940 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)22044))); } } 
POP_TRACE(); 
return BgL_aux2657z00_1940;} } } } 
}



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



/* truncate */
BGL_EXPORTED_DEF obj_t BGl_truncatez00zz__r4_numbers_6_5z00(obj_t BgL_xz00_61)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 662 */
{ /* ./Ieee/number.scm 664 */
obj_t BgL_symbol2662z00_1941;
BgL_symbol2662z00_1941 = BGl_symbol6013z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 664 */

PUSH_TRACE(BgL_symbol2662z00_1941); BUNSPEC; 
{ /* ./Ieee/number.scm 664 */
obj_t BgL_aux2661z00_1942;
if(
INTEGERP(BgL_xz00_61))
{ /* ./Ieee/number.scm 664 */
BgL_aux2661z00_1942 = BgL_xz00_61; }  else 
{ /* ./Ieee/number.scm 666 */
bool_t BgL_test1518z00_556;
BgL_test1518z00_556 = 
REALP(BgL_xz00_61); 
if(BgL_test1518z00_556)
{ /* ./Ieee/number.scm 666 */
{ /* ./Ieee/number.scm 667 */
double BgL_res2485z00_1323;
{ /* ./Ieee/number.scm 667 */
double BgL_rz00_1316;
{ /* ./Ieee/number.scm 667 */
obj_t BgL_auxz00_4124;
if(BgL_test1518z00_556)
{ /* ./Ieee/number.scm 667 */
BgL_auxz00_4124 = BgL_xz00_61
; }  else 
{ /* ./Ieee/number.scm 667 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6013z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_61, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)22402))); 
exit( -1 );} 
BgL_rz00_1316 = 
REAL_TO_DOUBLE(BgL_auxz00_4124); } 
if(
(BgL_rz00_1316<((double)0.0)))
{ /* ./Ieee/number.scm 667 */
BgL_res2485z00_1323 = 
ceil(BgL_rz00_1316); }  else 
{ /* ./Ieee/number.scm 667 */
BgL_res2485z00_1323 = 
floor(BgL_rz00_1316); } } 
BgL_aux2661z00_1942 = 
DOUBLE_TO_REAL(BgL_res2485z00_1323); } }  else 
{ /* ./Ieee/number.scm 666 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6014z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_61, "./Ieee/number.scm", ((long)22425)); 
BgL_aux2661z00_1942 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)22425))); } } 
POP_TRACE(); 
return BgL_aux2661z00_1942;} } } } 
}



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



/* round */
BGL_EXPORTED_DEF obj_t BGl_roundz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_62)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 674 */
{ /* ./Ieee/number.scm 676 */
obj_t BgL_symbol2666z00_1943;
BgL_symbol2666z00_1943 = BGl_symbol6015z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 676 */

PUSH_TRACE(BgL_symbol2666z00_1943); BUNSPEC; 
{ /* ./Ieee/number.scm 676 */
obj_t BgL_aux2665z00_1944;
if(
INTEGERP(BgL_xz00_62))
{ /* ./Ieee/number.scm 676 */
BgL_aux2665z00_1944 = BgL_xz00_62; }  else 
{ /* ./Ieee/number.scm 678 */
bool_t BgL_test1525z00_558;
BgL_test1525z00_558 = 
REALP(BgL_xz00_62); 
if(BgL_test1525z00_558)
{ /* ./Ieee/number.scm 678 */
{ /* ./Ieee/number.scm 679 */
double BgL_auxz00_4145;
{ /* ./Ieee/number.scm 679 */
double BgL_auxz00_4146;
{ /* ./Ieee/number.scm 679 */
obj_t BgL_auxz00_4147;
if(BgL_test1525z00_558)
{ /* ./Ieee/number.scm 679 */
BgL_auxz00_4147 = BgL_xz00_62
; }  else 
{ /* ./Ieee/number.scm 679 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6015z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_62, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)22778))); 
exit( -1 );} 
BgL_auxz00_4146 = 
REAL_TO_DOUBLE(BgL_auxz00_4147); } 
BgL_auxz00_4145 = 
BGl_roundflz00zz__r4_numbers_6_5_flonumz00(BgL_auxz00_4146); } 
BgL_aux2665z00_1944 = 
DOUBLE_TO_REAL(BgL_auxz00_4145); } }  else 
{ /* ./Ieee/number.scm 678 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6016z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_62, "./Ieee/number.scm", ((long)22801)); 
BgL_aux2665z00_1944 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)22801))); } } 
POP_TRACE(); 
return BgL_aux2665z00_1944;} } } } 
}



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



/* exp */
BGL_EXPORTED_DEF double BGl_expz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_63)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 686 */
{ /* ./Ieee/number.scm 688 */
obj_t BgL_symbol2670z00_1945;
BgL_symbol2670z00_1945 = BGl_symbol6017z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 688 */

PUSH_TRACE(BgL_symbol2670z00_1945); BUNSPEC; 
{ /* ./Ieee/number.scm 688 */
double BgL_aux2669z00_1946;
{ /* ./Ieee/number.scm 688 */
bool_t BgL_test1531z00_559;
BgL_test1531z00_559 = 
INTEGERP(BgL_xz00_63); 
if(BgL_test1531z00_559)
{ /* ./Ieee/number.scm 688 */
{ /* ./Ieee/number.scm 689 */
double BgL_arg1533z00_560;
{ /* ./Ieee/number.scm 689 */
long BgL_xz00_1333;
{ /* ./Ieee/number.scm 689 */
obj_t BgL_auxz00_4163;
if(BgL_test1531z00_559)
{ /* ./Ieee/number.scm 689 */
BgL_auxz00_4163 = BgL_xz00_63
; }  else 
{ /* ./Ieee/number.scm 689 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6017z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_63, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23134))); 
exit( -1 );} 
BgL_xz00_1333 = 
(long)CINT(BgL_auxz00_4163); } 
BgL_arg1533z00_560 = 
(double)(BgL_xz00_1333); } 
BgL_aux2669z00_1946 = 
exp(BgL_arg1533z00_560); } }  else 
{ /* ./Ieee/number.scm 690 */
bool_t BgL_test1536z00_561;
BgL_test1536z00_561 = 
REALP(BgL_xz00_63); 
if(BgL_test1536z00_561)
{ /* ./Ieee/number.scm 690 */
{ /* ./Ieee/number.scm 691 */
double BgL_xz00_1336;
{ /* ./Ieee/number.scm 691 */
obj_t BgL_auxz00_4173;
if(BgL_test1536z00_561)
{ /* ./Ieee/number.scm 691 */
BgL_auxz00_4173 = BgL_xz00_63
; }  else 
{ /* ./Ieee/number.scm 691 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6017z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_63, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23172))); 
exit( -1 );} 
BgL_xz00_1336 = 
REAL_TO_DOUBLE(BgL_auxz00_4173); } 
BgL_aux2669z00_1946 = 
exp(BgL_xz00_1336); } }  else 
{ /* ./Ieee/number.scm 690 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6018z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_63, "./Ieee/number.scm", ((long)23195)); 
{ /* ./Ieee/number.scm 693 */
obj_t BgL_auxz00_4181;
{ /* ./Ieee/number.scm 693 */
obj_t BgL_aux4552z00_2364;
BgL_aux4552z00_2364 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23195))); 
if(
REALP(BgL_aux4552z00_2364))
{ /* ./Ieee/number.scm 693 */
BgL_auxz00_4181 = BgL_aux4552z00_2364
; }  else 
{ /* ./Ieee/number.scm 693 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6017z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4552z00_2364, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23195))); 
exit( -1 );} } 
BgL_aux2669z00_1946 = 
REAL_TO_DOUBLE(BgL_auxz00_4181); } } } } 
POP_TRACE(); 
return BgL_aux2669z00_1946;} } } } 
}



/* _exp */
obj_t BGl__expz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2076, obj_t BgL_xz00_2077)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 686 */
{ /* ./Ieee/number.scm 688 */
double BgL_auxz00_4191;
BgL_auxz00_4191 = 
BGl_expz00zz__r4_numbers_6_5z00(BgL_xz00_2077); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4191);} } 
}



/* log */
BGL_EXPORTED_DEF double BGl_logz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_64)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 698 */
{ /* ./Ieee/number.scm 700 */
obj_t BgL_symbol2674z00_1947;
BgL_symbol2674z00_1947 = BGl_symbol6019z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 700 */

PUSH_TRACE(BgL_symbol2674z00_1947); BUNSPEC; 
{ /* ./Ieee/number.scm 700 */
double BgL_aux2673z00_1948;
{ /* ./Ieee/number.scm 700 */
bool_t BgL_test1542z00_562;
BgL_test1542z00_562 = 
INTEGERP(BgL_xz00_64); 
if(BgL_test1542z00_562)
{ /* ./Ieee/number.scm 700 */
{ /* ./Ieee/number.scm 701 */
double BgL_arg1545z00_563;
{ /* ./Ieee/number.scm 701 */
long BgL_xz00_1341;
{ /* ./Ieee/number.scm 701 */
obj_t BgL_auxz00_4197;
if(BgL_test1542z00_562)
{ /* ./Ieee/number.scm 701 */
BgL_auxz00_4197 = BgL_xz00_64
; }  else 
{ /* ./Ieee/number.scm 701 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6019z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_64, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23526))); 
exit( -1 );} 
BgL_xz00_1341 = 
(long)CINT(BgL_auxz00_4197); } 
BgL_arg1545z00_563 = 
(double)(BgL_xz00_1341); } 
BgL_aux2673z00_1948 = 
log(BgL_arg1545z00_563); } }  else 
{ /* ./Ieee/number.scm 702 */
bool_t BgL_test1548z00_564;
BgL_test1548z00_564 = 
REALP(BgL_xz00_64); 
if(BgL_test1548z00_564)
{ /* ./Ieee/number.scm 702 */
{ /* ./Ieee/number.scm 703 */
double BgL_xz00_1344;
{ /* ./Ieee/number.scm 703 */
obj_t BgL_auxz00_4207;
if(BgL_test1548z00_564)
{ /* ./Ieee/number.scm 703 */
BgL_auxz00_4207 = BgL_xz00_64
; }  else 
{ /* ./Ieee/number.scm 703 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6019z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_64, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23564))); 
exit( -1 );} 
BgL_xz00_1344 = 
REAL_TO_DOUBLE(BgL_auxz00_4207); } 
BgL_aux2673z00_1948 = 
log(BgL_xz00_1344); } }  else 
{ /* ./Ieee/number.scm 702 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6020z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_64, "./Ieee/number.scm", ((long)23587)); 
{ /* ./Ieee/number.scm 705 */
obj_t BgL_auxz00_4215;
{ /* ./Ieee/number.scm 705 */
obj_t BgL_aux4593z00_2370;
BgL_aux4593z00_2370 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23587))); 
if(
REALP(BgL_aux4593z00_2370))
{ /* ./Ieee/number.scm 705 */
BgL_auxz00_4215 = BgL_aux4593z00_2370
; }  else 
{ /* ./Ieee/number.scm 705 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6019z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4593z00_2370, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23587))); 
exit( -1 );} } 
BgL_aux2673z00_1948 = 
REAL_TO_DOUBLE(BgL_auxz00_4215); } } } } 
POP_TRACE(); 
return BgL_aux2673z00_1948;} } } } 
}



/* _log */
obj_t BGl__logz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2078, obj_t BgL_xz00_2079)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 698 */
{ /* ./Ieee/number.scm 700 */
double BgL_auxz00_4225;
BgL_auxz00_4225 = 
BGl_logz00zz__r4_numbers_6_5z00(BgL_xz00_2079); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4225);} } 
}



/* sin */
BGL_EXPORTED_DEF double BGl_sinz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_65)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 710 */
{ /* ./Ieee/number.scm 712 */
obj_t BgL_symbol2678z00_1949;
BgL_symbol2678z00_1949 = BGl_symbol6021z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 712 */

PUSH_TRACE(BgL_symbol2678z00_1949); BUNSPEC; 
{ /* ./Ieee/number.scm 712 */
double BgL_aux2677z00_1950;
{ /* ./Ieee/number.scm 712 */
bool_t BgL_test1554z00_565;
BgL_test1554z00_565 = 
INTEGERP(BgL_xz00_65); 
if(BgL_test1554z00_565)
{ /* ./Ieee/number.scm 712 */
{ /* ./Ieee/number.scm 713 */
double BgL_arg1556z00_566;
{ /* ./Ieee/number.scm 713 */
long BgL_xz00_1349;
{ /* ./Ieee/number.scm 713 */
obj_t BgL_auxz00_4231;
if(BgL_test1554z00_565)
{ /* ./Ieee/number.scm 713 */
BgL_auxz00_4231 = BgL_xz00_65
; }  else 
{ /* ./Ieee/number.scm 713 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6021z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_65, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23918))); 
exit( -1 );} 
BgL_xz00_1349 = 
(long)CINT(BgL_auxz00_4231); } 
BgL_arg1556z00_566 = 
(double)(BgL_xz00_1349); } 
BgL_aux2677z00_1950 = 
sin(BgL_arg1556z00_566); } }  else 
{ /* ./Ieee/number.scm 714 */
bool_t BgL_test1559z00_567;
BgL_test1559z00_567 = 
REALP(BgL_xz00_65); 
if(BgL_test1559z00_567)
{ /* ./Ieee/number.scm 714 */
{ /* ./Ieee/number.scm 715 */
double BgL_xz00_1352;
{ /* ./Ieee/number.scm 715 */
obj_t BgL_auxz00_4241;
if(BgL_test1559z00_567)
{ /* ./Ieee/number.scm 715 */
BgL_auxz00_4241 = BgL_xz00_65
; }  else 
{ /* ./Ieee/number.scm 715 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6021z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_65, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23956))); 
exit( -1 );} 
BgL_xz00_1352 = 
REAL_TO_DOUBLE(BgL_auxz00_4241); } 
BgL_aux2677z00_1950 = 
sin(BgL_xz00_1352); } }  else 
{ /* ./Ieee/number.scm 714 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6022z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_65, "./Ieee/number.scm", ((long)23979)); 
{ /* ./Ieee/number.scm 717 */
obj_t BgL_auxz00_4249;
{ /* ./Ieee/number.scm 717 */
obj_t BgL_aux4634z00_2376;
BgL_aux4634z00_2376 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23979))); 
if(
REALP(BgL_aux4634z00_2376))
{ /* ./Ieee/number.scm 717 */
BgL_auxz00_4249 = BgL_aux4634z00_2376
; }  else 
{ /* ./Ieee/number.scm 717 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6021z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4634z00_2376, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)23979))); 
exit( -1 );} } 
BgL_aux2677z00_1950 = 
REAL_TO_DOUBLE(BgL_auxz00_4249); } } } } 
POP_TRACE(); 
return BgL_aux2677z00_1950;} } } } 
}



/* _sin */
obj_t BGl__sinz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2080, obj_t BgL_xz00_2081)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 710 */
{ /* ./Ieee/number.scm 712 */
double BgL_auxz00_4259;
BgL_auxz00_4259 = 
BGl_sinz00zz__r4_numbers_6_5z00(BgL_xz00_2081); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4259);} } 
}



/* cos */
BGL_EXPORTED_DEF double BGl_cosz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_66)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 722 */
{ /* ./Ieee/number.scm 724 */
obj_t BgL_symbol2682z00_1951;
BgL_symbol2682z00_1951 = BGl_symbol6023z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 724 */

PUSH_TRACE(BgL_symbol2682z00_1951); BUNSPEC; 
{ /* ./Ieee/number.scm 724 */
double BgL_aux2681z00_1952;
{ /* ./Ieee/number.scm 724 */
bool_t BgL_test1565z00_568;
BgL_test1565z00_568 = 
INTEGERP(BgL_xz00_66); 
if(BgL_test1565z00_568)
{ /* ./Ieee/number.scm 724 */
{ /* ./Ieee/number.scm 725 */
double BgL_arg1567z00_569;
{ /* ./Ieee/number.scm 725 */
long BgL_xz00_1357;
{ /* ./Ieee/number.scm 725 */
obj_t BgL_auxz00_4265;
if(BgL_test1565z00_568)
{ /* ./Ieee/number.scm 725 */
BgL_auxz00_4265 = BgL_xz00_66
; }  else 
{ /* ./Ieee/number.scm 725 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6023z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_66, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24310))); 
exit( -1 );} 
BgL_xz00_1357 = 
(long)CINT(BgL_auxz00_4265); } 
BgL_arg1567z00_569 = 
(double)(BgL_xz00_1357); } 
BgL_aux2681z00_1952 = 
cos(BgL_arg1567z00_569); } }  else 
{ /* ./Ieee/number.scm 726 */
bool_t BgL_test1570z00_570;
BgL_test1570z00_570 = 
REALP(BgL_xz00_66); 
if(BgL_test1570z00_570)
{ /* ./Ieee/number.scm 726 */
{ /* ./Ieee/number.scm 727 */
double BgL_xz00_1360;
{ /* ./Ieee/number.scm 727 */
obj_t BgL_auxz00_4275;
if(BgL_test1570z00_570)
{ /* ./Ieee/number.scm 727 */
BgL_auxz00_4275 = BgL_xz00_66
; }  else 
{ /* ./Ieee/number.scm 727 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6023z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_66, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24348))); 
exit( -1 );} 
BgL_xz00_1360 = 
REAL_TO_DOUBLE(BgL_auxz00_4275); } 
BgL_aux2681z00_1952 = 
cos(BgL_xz00_1360); } }  else 
{ /* ./Ieee/number.scm 726 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6024z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_66, "./Ieee/number.scm", ((long)24371)); 
{ /* ./Ieee/number.scm 729 */
obj_t BgL_auxz00_4283;
{ /* ./Ieee/number.scm 729 */
obj_t BgL_aux4675z00_2382;
BgL_aux4675z00_2382 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24371))); 
if(
REALP(BgL_aux4675z00_2382))
{ /* ./Ieee/number.scm 729 */
BgL_auxz00_4283 = BgL_aux4675z00_2382
; }  else 
{ /* ./Ieee/number.scm 729 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6023z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4675z00_2382, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24371))); 
exit( -1 );} } 
BgL_aux2681z00_1952 = 
REAL_TO_DOUBLE(BgL_auxz00_4283); } } } } 
POP_TRACE(); 
return BgL_aux2681z00_1952;} } } } 
}



/* _cos */
obj_t BGl__cosz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2082, obj_t BgL_xz00_2083)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 722 */
{ /* ./Ieee/number.scm 724 */
double BgL_auxz00_4293;
BgL_auxz00_4293 = 
BGl_cosz00zz__r4_numbers_6_5z00(BgL_xz00_2083); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4293);} } 
}



/* tan */
BGL_EXPORTED_DEF double BGl_tanz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_67)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 734 */
{ /* ./Ieee/number.scm 736 */
obj_t BgL_symbol2686z00_1953;
BgL_symbol2686z00_1953 = BGl_symbol6025z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 736 */

PUSH_TRACE(BgL_symbol2686z00_1953); BUNSPEC; 
{ /* ./Ieee/number.scm 736 */
double BgL_aux2685z00_1954;
{ /* ./Ieee/number.scm 736 */
bool_t BgL_test1576z00_571;
BgL_test1576z00_571 = 
INTEGERP(BgL_xz00_67); 
if(BgL_test1576z00_571)
{ /* ./Ieee/number.scm 736 */
{ /* ./Ieee/number.scm 737 */
double BgL_arg1578z00_572;
{ /* ./Ieee/number.scm 737 */
long BgL_xz00_1365;
{ /* ./Ieee/number.scm 737 */
obj_t BgL_auxz00_4299;
if(BgL_test1576z00_571)
{ /* ./Ieee/number.scm 737 */
BgL_auxz00_4299 = BgL_xz00_67
; }  else 
{ /* ./Ieee/number.scm 737 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6025z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_67, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24702))); 
exit( -1 );} 
BgL_xz00_1365 = 
(long)CINT(BgL_auxz00_4299); } 
BgL_arg1578z00_572 = 
(double)(BgL_xz00_1365); } 
BgL_aux2685z00_1954 = 
tan(BgL_arg1578z00_572); } }  else 
{ /* ./Ieee/number.scm 738 */
bool_t BgL_test1581z00_573;
BgL_test1581z00_573 = 
REALP(BgL_xz00_67); 
if(BgL_test1581z00_573)
{ /* ./Ieee/number.scm 738 */
{ /* ./Ieee/number.scm 739 */
double BgL_xz00_1368;
{ /* ./Ieee/number.scm 739 */
obj_t BgL_auxz00_4309;
if(BgL_test1581z00_573)
{ /* ./Ieee/number.scm 739 */
BgL_auxz00_4309 = BgL_xz00_67
; }  else 
{ /* ./Ieee/number.scm 739 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6025z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_67, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24740))); 
exit( -1 );} 
BgL_xz00_1368 = 
REAL_TO_DOUBLE(BgL_auxz00_4309); } 
BgL_aux2685z00_1954 = 
tan(BgL_xz00_1368); } }  else 
{ /* ./Ieee/number.scm 738 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6026z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_67, "./Ieee/number.scm", ((long)24763)); 
{ /* ./Ieee/number.scm 741 */
obj_t BgL_auxz00_4317;
{ /* ./Ieee/number.scm 741 */
obj_t BgL_aux4716z00_2388;
BgL_aux4716z00_2388 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24763))); 
if(
REALP(BgL_aux4716z00_2388))
{ /* ./Ieee/number.scm 741 */
BgL_auxz00_4317 = BgL_aux4716z00_2388
; }  else 
{ /* ./Ieee/number.scm 741 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6025z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4716z00_2388, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)24763))); 
exit( -1 );} } 
BgL_aux2685z00_1954 = 
REAL_TO_DOUBLE(BgL_auxz00_4317); } } } } 
POP_TRACE(); 
return BgL_aux2685z00_1954;} } } } 
}



/* _tan */
obj_t BGl__tanz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2084, obj_t BgL_xz00_2085)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 734 */
{ /* ./Ieee/number.scm 736 */
double BgL_auxz00_4327;
BgL_auxz00_4327 = 
BGl_tanz00zz__r4_numbers_6_5z00(BgL_xz00_2085); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4327);} } 
}



/* asin */
BGL_EXPORTED_DEF double BGl_asinz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_68)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 746 */
{ /* ./Ieee/number.scm 748 */
obj_t BgL_symbol2690z00_1955;
BgL_symbol2690z00_1955 = BGl_symbol6027z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 748 */

PUSH_TRACE(BgL_symbol2690z00_1955); BUNSPEC; 
{ /* ./Ieee/number.scm 748 */
double BgL_aux2689z00_1956;
{ /* ./Ieee/number.scm 748 */
bool_t BgL_test1587z00_574;
BgL_test1587z00_574 = 
INTEGERP(BgL_xz00_68); 
if(BgL_test1587z00_574)
{ /* ./Ieee/number.scm 748 */
{ /* ./Ieee/number.scm 749 */
double BgL_arg1589z00_575;
{ /* ./Ieee/number.scm 749 */
long BgL_xz00_1373;
{ /* ./Ieee/number.scm 749 */
obj_t BgL_auxz00_4333;
if(BgL_test1587z00_574)
{ /* ./Ieee/number.scm 749 */
BgL_auxz00_4333 = BgL_xz00_68
; }  else 
{ /* ./Ieee/number.scm 749 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6027z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_68, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25096))); 
exit( -1 );} 
BgL_xz00_1373 = 
(long)CINT(BgL_auxz00_4333); } 
BgL_arg1589z00_575 = 
(double)(BgL_xz00_1373); } 
BgL_aux2689z00_1956 = 
asin(BgL_arg1589z00_575); } }  else 
{ /* ./Ieee/number.scm 750 */
bool_t BgL_test1592z00_576;
BgL_test1592z00_576 = 
REALP(BgL_xz00_68); 
if(BgL_test1592z00_576)
{ /* ./Ieee/number.scm 750 */
{ /* ./Ieee/number.scm 751 */
double BgL_xz00_1376;
{ /* ./Ieee/number.scm 751 */
obj_t BgL_auxz00_4343;
if(BgL_test1592z00_576)
{ /* ./Ieee/number.scm 751 */
BgL_auxz00_4343 = BgL_xz00_68
; }  else 
{ /* ./Ieee/number.scm 751 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6027z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_68, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25135))); 
exit( -1 );} 
BgL_xz00_1376 = 
REAL_TO_DOUBLE(BgL_auxz00_4343); } 
BgL_aux2689z00_1956 = 
asin(BgL_xz00_1376); } }  else 
{ /* ./Ieee/number.scm 750 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6028z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_68, "./Ieee/number.scm", ((long)25158)); 
{ /* ./Ieee/number.scm 753 */
obj_t BgL_auxz00_4351;
{ /* ./Ieee/number.scm 753 */
obj_t BgL_aux4757z00_2394;
BgL_aux4757z00_2394 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25158))); 
if(
REALP(BgL_aux4757z00_2394))
{ /* ./Ieee/number.scm 753 */
BgL_auxz00_4351 = BgL_aux4757z00_2394
; }  else 
{ /* ./Ieee/number.scm 753 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6027z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4757z00_2394, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25158))); 
exit( -1 );} } 
BgL_aux2689z00_1956 = 
REAL_TO_DOUBLE(BgL_auxz00_4351); } } } } 
POP_TRACE(); 
return BgL_aux2689z00_1956;} } } } 
}



/* _asin */
obj_t BGl__asinz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2086, obj_t BgL_xz00_2087)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 746 */
{ /* ./Ieee/number.scm 748 */
double BgL_auxz00_4361;
BgL_auxz00_4361 = 
BGl_asinz00zz__r4_numbers_6_5z00(BgL_xz00_2087); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4361);} } 
}



/* acos */
BGL_EXPORTED_DEF double BGl_acosz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_69)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 758 */
{ /* ./Ieee/number.scm 760 */
obj_t BgL_symbol2694z00_1957;
BgL_symbol2694z00_1957 = BGl_symbol6029z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 760 */

PUSH_TRACE(BgL_symbol2694z00_1957); BUNSPEC; 
{ /* ./Ieee/number.scm 760 */
double BgL_aux2693z00_1958;
{ /* ./Ieee/number.scm 760 */
bool_t BgL_test1598z00_577;
BgL_test1598z00_577 = 
INTEGERP(BgL_xz00_69); 
if(BgL_test1598z00_577)
{ /* ./Ieee/number.scm 760 */
{ /* ./Ieee/number.scm 761 */
double BgL_arg1600z00_578;
{ /* ./Ieee/number.scm 761 */
long BgL_xz00_1381;
{ /* ./Ieee/number.scm 761 */
obj_t BgL_auxz00_4367;
if(BgL_test1598z00_577)
{ /* ./Ieee/number.scm 761 */
BgL_auxz00_4367 = BgL_xz00_69
; }  else 
{ /* ./Ieee/number.scm 761 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6029z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_69, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25492))); 
exit( -1 );} 
BgL_xz00_1381 = 
(long)CINT(BgL_auxz00_4367); } 
BgL_arg1600z00_578 = 
(double)(BgL_xz00_1381); } 
BgL_aux2693z00_1958 = 
acos(BgL_arg1600z00_578); } }  else 
{ /* ./Ieee/number.scm 762 */
bool_t BgL_test1603z00_579;
BgL_test1603z00_579 = 
REALP(BgL_xz00_69); 
if(BgL_test1603z00_579)
{ /* ./Ieee/number.scm 762 */
{ /* ./Ieee/number.scm 763 */
double BgL_xz00_1384;
{ /* ./Ieee/number.scm 763 */
obj_t BgL_auxz00_4377;
if(BgL_test1603z00_579)
{ /* ./Ieee/number.scm 763 */
BgL_auxz00_4377 = BgL_xz00_69
; }  else 
{ /* ./Ieee/number.scm 763 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6029z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_69, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25531))); 
exit( -1 );} 
BgL_xz00_1384 = 
REAL_TO_DOUBLE(BgL_auxz00_4377); } 
BgL_aux2693z00_1958 = 
acos(BgL_xz00_1384); } }  else 
{ /* ./Ieee/number.scm 762 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6030z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_69, "./Ieee/number.scm", ((long)25554)); 
{ /* ./Ieee/number.scm 765 */
obj_t BgL_auxz00_4385;
{ /* ./Ieee/number.scm 765 */
obj_t BgL_aux4798z00_2400;
BgL_aux4798z00_2400 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25554))); 
if(
REALP(BgL_aux4798z00_2400))
{ /* ./Ieee/number.scm 765 */
BgL_auxz00_4385 = BgL_aux4798z00_2400
; }  else 
{ /* ./Ieee/number.scm 765 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6029z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4798z00_2400, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25554))); 
exit( -1 );} } 
BgL_aux2693z00_1958 = 
REAL_TO_DOUBLE(BgL_auxz00_4385); } } } } 
POP_TRACE(); 
return BgL_aux2693z00_1958;} } } } 
}



/* _acos */
obj_t BGl__acosz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2088, obj_t BgL_xz00_2089)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 758 */
{ /* ./Ieee/number.scm 760 */
double BgL_auxz00_4395;
BgL_auxz00_4395 = 
BGl_acosz00zz__r4_numbers_6_5z00(BgL_xz00_2089); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4395);} } 
}



/* 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_symbol2698z00_1959;
BgL_symbol2698z00_1959 = BGl_symbol6031z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 771 */

PUSH_TRACE(BgL_symbol2698z00_1959); BUNSPEC; 
{ /* ./Ieee/number.scm 771 */
double BgL_aux2697z00_1960;
{ /* ./Ieee/number.scm 771 */
obj_t BgL_yz00_580;
{ /* ./Ieee/number.scm 771 */
bool_t BgL_test1625z00_589;
BgL_test1625z00_589 = 
PAIRP(BgL_yz00_71); 
if(BgL_test1625z00_589)
{ /* ./Ieee/number.scm 772 */
obj_t BgL_yz00_590;
{ /* ./Ieee/number.scm 772 */
obj_t BgL_pairz00_1389;
if(BgL_test1625z00_589)
{ /* ./Ieee/number.scm 772 */
BgL_pairz00_1389 = BgL_yz00_71; }  else 
{ /* ./Ieee/number.scm 772 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_yz00_71, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25875))); 
exit( -1 );} 
BgL_yz00_590 = 
CAR(BgL_pairz00_1389); } 
{ /* ./Ieee/number.scm 774 */
bool_t BgL_test1626z00_591;
BgL_test1626z00_591 = 
INTEGERP(BgL_yz00_590); 
if(BgL_test1626z00_591)
{ /* ./Ieee/number.scm 774 */
{ /* ./Ieee/number.scm 775 */
long BgL_xz00_1391;
{ /* ./Ieee/number.scm 775 */
obj_t BgL_auxz00_4408;
if(BgL_test1626z00_591)
{ /* ./Ieee/number.scm 775 */
BgL_auxz00_4408 = BgL_yz00_590
; }  else 
{ /* ./Ieee/number.scm 775 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_590, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25937))); 
exit( -1 );} 
BgL_xz00_1391 = 
(long)CINT(BgL_auxz00_4408); } 
{ /* ./Ieee/number.scm 775 */
double BgL_auxz00_4414;
BgL_auxz00_4414 = 
(double)(BgL_xz00_1391); 
BgL_yz00_580 = 
DOUBLE_TO_REAL(BgL_auxz00_4414); } } }  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 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6032z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_590, "./Ieee/number.scm", ((long)25997)); 
BgL_yz00_580 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)25997))); } } } }  else 
{ /* ./Ieee/number.scm 771 */
BgL_yz00_580 = BFALSE; } } 
{ /* ./Ieee/number.scm 786 */
bool_t BgL_test1609z00_582;
BgL_test1609z00_582 = 
INTEGERP(BgL_xz00_70); 
if(BgL_test1609z00_582)
{ /* ./Ieee/number.scm 786 */
{ /* ./Ieee/number.scm 787 */
double BgL_arg1611z00_583;
{ /* ./Ieee/number.scm 787 */
long BgL_xz00_1397;
{ /* ./Ieee/number.scm 787 */
obj_t BgL_auxz00_4424;
if(BgL_test1609z00_582)
{ /* ./Ieee/number.scm 787 */
BgL_auxz00_4424 = BgL_xz00_70
; }  else 
{ /* ./Ieee/number.scm 787 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_70, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26182))); 
exit( -1 );} 
BgL_xz00_1397 = 
(long)CINT(BgL_auxz00_4424); } 
BgL_arg1611z00_583 = 
(double)(BgL_xz00_1397); } 
{ /* ./Ieee/number.scm 787 */
bool_t BgL_test1621z00_1399;
if(
INTEGERP(BgL_yz00_580))
{ /* ./Ieee/number.scm 787 */
BgL_test1621z00_1399 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 787 */
BgL_test1621z00_1399 = 
REALP(BgL_yz00_580); } 
if(BgL_test1621z00_1399)
{ /* ./Ieee/number.scm 787 */
double BgL_res2487z00_1416;
{ /* ./Ieee/number.scm 787 */
double BgL_yz00_1406;
{ /* ./Ieee/number.scm 787 */
obj_t BgL_auxz00_4435;
if(
REALP(BgL_yz00_580))
{ /* ./Ieee/number.scm 787 */
BgL_auxz00_4435 = BgL_yz00_580
; }  else 
{ /* ./Ieee/number.scm 787 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_580, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26155))); 
exit( -1 );} 
BgL_yz00_1406 = 
REAL_TO_DOUBLE(BgL_auxz00_4435); } 
{ /* ./Ieee/number.scm 787 */
bool_t BgL_tz00_1407;
if(
(BgL_arg1611z00_583==((double)0.0)))
{ /* ./Ieee/number.scm 787 */
BgL_tz00_1407 = 
(BgL_yz00_1406==((double)0.0)); }  else 
{ /* ./Ieee/number.scm 787 */
BgL_tz00_1407 = ((bool_t)0); } 
if(BgL_tz00_1407)
{ /* ./Ieee/number.scm 787 */
the_failure(BGl_string6033z00zz__r4_numbers_6_5z00, BGl_string6034z00zz__r4_numbers_6_5z00, BGl_real6035z00zz__r4_numbers_6_5z00); 
BgL_res2487z00_1416 = ((double)0.0); }  else 
{ /* ./Ieee/number.scm 787 */
BgL_res2487z00_1416 = 
atan2(BgL_arg1611z00_583, BgL_yz00_1406); } } } 
BgL_aux2697z00_1960 = BgL_res2487z00_1416; }  else 
{ /* ./Ieee/number.scm 787 */
BgL_aux2697z00_1960 = 
atan(BgL_arg1611z00_583); } } } }  else 
{ /* ./Ieee/number.scm 788 */
bool_t BgL_test1614z00_584;
BgL_test1614z00_584 = 
REALP(BgL_xz00_70); 
if(BgL_test1614z00_584)
{ /* ./Ieee/number.scm 788 */
{ /* ./Ieee/number.scm 789 */
bool_t BgL_test1621z00_1420;
if(
INTEGERP(BgL_yz00_580))
{ /* ./Ieee/number.scm 789 */
BgL_test1621z00_1420 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 789 */
BgL_test1621z00_1420 = 
REALP(BgL_yz00_580); } 
if(BgL_test1621z00_1420)
{ /* ./Ieee/number.scm 789 */
double BgL_res2489z00_1437;
{ /* ./Ieee/number.scm 789 */
double BgL_xz00_1426;double BgL_yz00_1427;
{ /* ./Ieee/number.scm 789 */
obj_t BgL_auxz00_4455;
if(BgL_test1614z00_584)
{ /* ./Ieee/number.scm 789 */
BgL_auxz00_4455 = BgL_xz00_70
; }  else 
{ /* ./Ieee/number.scm 789 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_70, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26205))); 
exit( -1 );} 
BgL_xz00_1426 = 
REAL_TO_DOUBLE(BgL_auxz00_4455); } 
{ /* ./Ieee/number.scm 789 */
obj_t BgL_auxz00_4461;
if(
REALP(BgL_yz00_580))
{ /* ./Ieee/number.scm 789 */
BgL_auxz00_4461 = BgL_yz00_580
; }  else 
{ /* ./Ieee/number.scm 789 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_580, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26205))); 
exit( -1 );} 
BgL_yz00_1427 = 
REAL_TO_DOUBLE(BgL_auxz00_4461); } 
{ /* ./Ieee/number.scm 789 */
bool_t BgL_tz00_1428;
if(
(BgL_xz00_1426==((double)0.0)))
{ /* ./Ieee/number.scm 789 */
BgL_tz00_1428 = 
(BgL_yz00_1427==((double)0.0)); }  else 
{ /* ./Ieee/number.scm 789 */
BgL_tz00_1428 = ((bool_t)0); } 
if(BgL_tz00_1428)
{ /* ./Ieee/number.scm 789 */
the_failure(BGl_string6033z00zz__r4_numbers_6_5z00, BGl_string6034z00zz__r4_numbers_6_5z00, BGl_real6035z00zz__r4_numbers_6_5z00); 
BgL_res2489z00_1437 = ((double)0.0); }  else 
{ /* ./Ieee/number.scm 789 */
BgL_res2489z00_1437 = 
atan2(BgL_xz00_1426, BgL_yz00_1427); } } } 
BgL_aux2697z00_1960 = BgL_res2489z00_1437; }  else 
{ /* ./Ieee/number.scm 789 */
double BgL_xz00_1438;
{ /* ./Ieee/number.scm 789 */
obj_t BgL_auxz00_4474;
if(BgL_test1614z00_584)
{ /* ./Ieee/number.scm 789 */
BgL_auxz00_4474 = BgL_xz00_70
; }  else 
{ /* ./Ieee/number.scm 789 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_70, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26205))); 
exit( -1 );} 
BgL_xz00_1438 = 
REAL_TO_DOUBLE(BgL_auxz00_4474); } 
BgL_aux2697z00_1960 = 
atan(BgL_xz00_1438); } } }  else 
{ /* ./Ieee/number.scm 788 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6032z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_70, "./Ieee/number.scm", ((long)26231)); 
{ /* ./Ieee/number.scm 791 */
obj_t BgL_auxz00_4482;
{ /* ./Ieee/number.scm 791 */
obj_t BgL_aux4902z00_2416;
BgL_aux4902z00_2416 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26231))); 
if(
REALP(BgL_aux4902z00_2416))
{ /* ./Ieee/number.scm 791 */
BgL_auxz00_4482 = BgL_aux4902z00_2416
; }  else 
{ /* ./Ieee/number.scm 791 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6031z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4902z00_2416, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26231))); 
exit( -1 );} } 
BgL_aux2697z00_1960 = 
REAL_TO_DOUBLE(BgL_auxz00_4482); } } } } } 
POP_TRACE(); 
return BgL_aux2697z00_1960;} } } } 
}



/* _atan */
obj_t BGl__atanz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2090, obj_t BgL_xz00_2091, obj_t BgL_yz00_2092)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 770 */
{ /* ./Ieee/number.scm 771 */
double BgL_auxz00_4492;
BgL_auxz00_4492 = 
BGl_atanz00zz__r4_numbers_6_5z00(BgL_xz00_2091, BgL_yz00_2092); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4492);} } 
}



/* sqrt */
BGL_EXPORTED_DEF double BGl_sqrtz00zz__r4_numbers_6_5z00(obj_t BgL_xz00_72)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 796 */
{ /* ./Ieee/number.scm 798 */
obj_t BgL_symbol2702z00_1961;
BgL_symbol2702z00_1961 = BGl_symbol6036z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 798 */

PUSH_TRACE(BgL_symbol2702z00_1961); BUNSPEC; 
{ /* ./Ieee/number.scm 798 */
double BgL_aux2701z00_1962;
{ /* ./Ieee/number.scm 798 */
bool_t BgL_test1635z00_593;
BgL_test1635z00_593 = 
INTEGERP(BgL_xz00_72); 
if(BgL_test1635z00_593)
{ /* ./Ieee/number.scm 798 */
{ /* ./Ieee/number.scm 799 */
double BgL_arg1637z00_594;
{ /* ./Ieee/number.scm 799 */
long BgL_xz00_1462;
{ /* ./Ieee/number.scm 799 */
obj_t BgL_auxz00_4498;
if(BgL_test1635z00_593)
{ /* ./Ieee/number.scm 799 */
BgL_auxz00_4498 = BgL_xz00_72
; }  else 
{ /* ./Ieee/number.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6036z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_72, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26566))); 
exit( -1 );} 
BgL_xz00_1462 = 
(long)CINT(BgL_auxz00_4498); } 
BgL_arg1637z00_594 = 
(double)(BgL_xz00_1462); } 
{ /* ./Ieee/number.scm 799 */
double BgL_res2492z00_1473;
if(
(BgL_arg1637z00_594<((double)0.0)))
{ /* ./Ieee/number.scm 799 */
obj_t BgL_objz00_1467;
BgL_objz00_1467 = 
DOUBLE_TO_REAL(BgL_arg1637z00_594); 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6037z00zz__r4_numbers_6_5z00, BGl_string6034z00zz__r4_numbers_6_5z00, BgL_objz00_1467, "./Ieee/flonum.scm", ((long)20241)); 
{ /* ./Ieee/number.scm 799 */
obj_t BgL_auxz00_4509;
{ /* ./Ieee/number.scm 799 */
obj_t BgL_aux4930z00_2420;
BgL_aux4930z00_2420 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26542))); 
if(
REALP(BgL_aux4930z00_2420))
{ /* ./Ieee/number.scm 799 */
BgL_auxz00_4509 = BgL_aux4930z00_2420
; }  else 
{ /* ./Ieee/number.scm 799 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6036z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4930z00_2420, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26542))); 
exit( -1 );} } 
BgL_res2492z00_1473 = 
REAL_TO_DOUBLE(BgL_auxz00_4509); } }  else 
{ /* ./Ieee/number.scm 799 */
BgL_res2492z00_1473 = 
sqrt(BgL_arg1637z00_594); } 
BgL_aux2701z00_1962 = BgL_res2492z00_1473; } } }  else 
{ /* ./Ieee/number.scm 800 */
bool_t BgL_test1640z00_595;
BgL_test1640z00_595 = 
REALP(BgL_xz00_72); 
if(BgL_test1640z00_595)
{ /* ./Ieee/number.scm 800 */
{ /* ./Ieee/number.scm 801 */
double BgL_res2493z00_1485;
{ /* ./Ieee/number.scm 801 */
double BgL_rz00_1475;
{ /* ./Ieee/number.scm 801 */
obj_t BgL_auxz00_4521;
if(BgL_test1640z00_595)
{ /* ./Ieee/number.scm 801 */
BgL_auxz00_4521 = BgL_xz00_72
; }  else 
{ /* ./Ieee/number.scm 801 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6036z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_72, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26597))); 
exit( -1 );} 
BgL_rz00_1475 = 
REAL_TO_DOUBLE(BgL_auxz00_4521); } 
if(
(BgL_rz00_1475<((double)0.0)))
{ /* ./Ieee/number.scm 801 */
obj_t BgL_objz00_1479;
BgL_objz00_1479 = 
DOUBLE_TO_REAL(BgL_rz00_1475); 
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6037z00zz__r4_numbers_6_5z00, BGl_string6034z00zz__r4_numbers_6_5z00, BgL_objz00_1479, "./Ieee/flonum.scm", ((long)20241)); 
{ /* ./Ieee/number.scm 801 */
obj_t BgL_auxz00_4531;
{ /* ./Ieee/number.scm 801 */
obj_t BgL_aux4957z00_2424;
BgL_aux4957z00_2424 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26597))); 
if(
REALP(BgL_aux4957z00_2424))
{ /* ./Ieee/number.scm 801 */
BgL_auxz00_4531 = BgL_aux4957z00_2424
; }  else 
{ /* ./Ieee/number.scm 801 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6036z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4957z00_2424, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26597))); 
exit( -1 );} } 
BgL_res2493z00_1485 = 
REAL_TO_DOUBLE(BgL_auxz00_4531); } }  else 
{ /* ./Ieee/number.scm 801 */
BgL_res2493z00_1485 = 
sqrt(BgL_rz00_1475); } } 
BgL_aux2701z00_1962 = BgL_res2493z00_1485; } }  else 
{ /* ./Ieee/number.scm 800 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6038z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_72, "./Ieee/number.scm", ((long)26628)); 
{ /* ./Ieee/number.scm 803 */
obj_t BgL_auxz00_4542;
{ /* ./Ieee/number.scm 803 */
obj_t BgL_aux4975z00_2426;
BgL_aux4975z00_2426 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26628))); 
if(
REALP(BgL_aux4975z00_2426))
{ /* ./Ieee/number.scm 803 */
BgL_auxz00_4542 = BgL_aux4975z00_2426
; }  else 
{ /* ./Ieee/number.scm 803 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6036z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_aux4975z00_2426, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26628))); 
exit( -1 );} } 
BgL_aux2701z00_1962 = 
REAL_TO_DOUBLE(BgL_auxz00_4542); } } } } 
POP_TRACE(); 
return BgL_aux2701z00_1962;} } } } 
}



/* _sqrt */
obj_t BGl__sqrtz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2093, obj_t BgL_xz00_2094)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 796 */
{ /* ./Ieee/number.scm 798 */
double BgL_auxz00_4552;
BgL_auxz00_4552 = 
BGl_sqrtz00zz__r4_numbers_6_5z00(BgL_xz00_2094); 
return 
DOUBLE_TO_REAL(BgL_auxz00_4552);} } 
}



/* 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 */
obj_t BgL_symbol2706z00_1963;
BgL_symbol2706z00_1963 = BGl_symbol6039z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 809 */

PUSH_TRACE(BgL_symbol2706z00_1963); BUNSPEC; 
{ /* ./Ieee/number.scm 809 */
obj_t BgL_aux2705z00_1964;
{ /* ./Ieee/number.scm 809 */
bool_t BgL_test1646z00_596;
{ /* ./Ieee/number.scm 809 */
bool_t BgL_test1685z00_609;
BgL_test1685z00_609 = 
REALP(BgL_xz00_73); 
if(BgL_test1685z00_609)
{ /* ./Ieee/number.scm 809 */
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 809 */
bool_t BgL_test1687z00_611;
{ /* ./Ieee/number.scm 809 */
double BgL_r1z00_1491;
{ /* ./Ieee/number.scm 809 */
obj_t BgL_auxz00_4560;
if(BgL_test1685z00_609)
{ /* ./Ieee/number.scm 809 */
BgL_auxz00_4560 = BgL_xz00_73
; }  else 
{ /* ./Ieee/number.scm 809 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_73, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26946))); 
exit( -1 );} 
BgL_r1z00_1491 = 
REAL_TO_DOUBLE(BgL_auxz00_4560); } 
BgL_test1687z00_611 = 
(BgL_r1z00_1491==((double)0.0)); } 
if(BgL_test1687z00_611)
{ /* ./Ieee/number.scm 809 */
double BgL_r1z00_1493;
{ /* ./Ieee/number.scm 809 */
obj_t BgL_auxz00_4568;
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 809 */
BgL_auxz00_4568 = BgL_yz00_74
; }  else 
{ /* ./Ieee/number.scm 809 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_74, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)26958))); 
exit( -1 );} 
BgL_r1z00_1493 = 
REAL_TO_DOUBLE(BgL_auxz00_4568); } 
BgL_test1646z00_596 = 
(BgL_r1z00_1493==((double)0.0)); }  else 
{ /* ./Ieee/number.scm 809 */
BgL_test1646z00_596 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 809 */
BgL_test1646z00_596 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 809 */
BgL_test1646z00_596 = ((bool_t)0); } } 
if(BgL_test1646z00_596)
{ /* ./Ieee/number.scm 809 */
BgL_aux2705z00_1964 = BGl_real6040z00zz__r4_numbers_6_5z00; }  else 
{ /* ./Ieee/number.scm 811 */
bool_t BgL_test1647z00_597;
if(
INTEGERP(BgL_xz00_73))
{ /* ./Ieee/number.scm 812 */
BgL_test1647z00_597 = 
INTEGERP(BgL_yz00_74); }  else 
{ /* ./Ieee/number.scm 812 */
BgL_test1647z00_597 = ((bool_t)0); } 
if(BgL_test1647z00_597)
{ /* ./Ieee/number.scm 811 */
{ /* ./Ieee/number.scm 818 */
double BgL_arg1649z00_598;
{ /* ./Ieee/number.scm 818 */
double BgL_arg1652z00_599;double BgL_arg1653z00_600;
{ /* ./Ieee/number.scm 818 */
long BgL_xz00_1497;
{ /* ./Ieee/number.scm 818 */
obj_t BgL_auxz00_4581;
if(
INTEGERP(BgL_xz00_73))
{ /* ./Ieee/number.scm 818 */
BgL_auxz00_4581 = BgL_xz00_73
; }  else 
{ /* ./Ieee/number.scm 818 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_73, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27175))); 
exit( -1 );} 
BgL_xz00_1497 = 
(long)CINT(BgL_auxz00_4581); } 
BgL_arg1652z00_599 = 
(double)(BgL_xz00_1497); } 
{ /* ./Ieee/number.scm 814 */
long BgL_xz00_1498;
{ /* ./Ieee/number.scm 814 */
obj_t BgL_auxz00_4589;
if(
INTEGERP(BgL_yz00_74))
{ /* ./Ieee/number.scm 814 */
BgL_auxz00_4589 = BgL_yz00_74
; }  else 
{ /* ./Ieee/number.scm 814 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_74, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27090))); 
exit( -1 );} 
BgL_xz00_1498 = 
(long)CINT(BgL_auxz00_4589); } 
BgL_arg1653z00_600 = 
(double)(BgL_xz00_1498); } 
BgL_arg1649z00_598 = 
pow(BgL_arg1652z00_599, BgL_arg1653z00_600); } 
{ /* ./Ieee/number.scm 816 */
long BgL_auxz00_4598;
BgL_auxz00_4598 = 
(long)(BgL_arg1649z00_598); 
BgL_aux2705z00_1964 = 
BINT(BgL_auxz00_4598); } } }  else 
{ /* ./Ieee/number.scm 821 */
bool_t BgL_test1657z00_601;
BgL_test1657z00_601 = 
INTEGERP(BgL_xz00_73); 
if(BgL_test1657z00_601)
{ /* ./Ieee/number.scm 821 */
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 817 */
{ /* ./Ieee/number.scm 818 */
double BgL_arg1660z00_603;
{ /* ./Ieee/number.scm 818 */
long BgL_xz00_1504;
{ /* ./Ieee/number.scm 818 */
obj_t BgL_auxz00_4605;
if(BgL_test1657z00_601)
{ /* ./Ieee/number.scm 818 */
BgL_auxz00_4605 = BgL_xz00_73
; }  else 
{ /* ./Ieee/number.scm 818 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_73, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27174))); 
exit( -1 );} 
BgL_xz00_1504 = 
(long)CINT(BgL_auxz00_4605); } 
BgL_arg1660z00_603 = 
(double)(BgL_xz00_1504); } 
{ /* ./Ieee/number.scm 818 */
double BgL_r2z00_1506;
{ /* ./Ieee/number.scm 818 */
obj_t BgL_auxz00_4612;
if(
REALP(BgL_yz00_74))
{ /* ./Ieee/number.scm 818 */
BgL_auxz00_4612 = BgL_yz00_74
; }  else 
{ /* ./Ieee/number.scm 818 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_74, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27177))); 
exit( -1 );} 
BgL_r2z00_1506 = 
REAL_TO_DOUBLE(BgL_auxz00_4612); } 
{ /* ./Ieee/number.scm 818 */
double BgL_auxz00_4619;
BgL_auxz00_4619 = 
pow(BgL_arg1660z00_603, BgL_r2z00_1506); 
BgL_aux2705z00_1964 = 
DOUBLE_TO_REAL(BgL_auxz00_4619); } } } }  else 
{ /* ./Ieee/number.scm 817 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6041z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_74, "./Ieee/number.scm", ((long)27202)); 
BgL_aux2705z00_1964 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27202))); } }  else 
{ /* ./Ieee/number.scm 821 */
bool_t BgL_test1666z00_604;
BgL_test1666z00_604 = 
REALP(BgL_xz00_73); 
if(BgL_test1666z00_604)
{ /* ./Ieee/number.scm 821 */
{ /* ./Ieee/number.scm 823 */
bool_t BgL_test1667z00_605;
BgL_test1667z00_605 = 
REALP(BgL_yz00_74); 
if(BgL_test1667z00_605)
{ /* ./Ieee/number.scm 823 */
{ /* ./Ieee/number.scm 824 */
double BgL_r1z00_1512;double BgL_r2z00_1513;
{ /* ./Ieee/number.scm 824 */
obj_t BgL_auxz00_4629;
if(BgL_test1666z00_604)
{ /* ./Ieee/number.scm 824 */
BgL_auxz00_4629 = BgL_xz00_73
; }  else 
{ /* ./Ieee/number.scm 824 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_73, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27299))); 
exit( -1 );} 
BgL_r1z00_1512 = 
REAL_TO_DOUBLE(BgL_auxz00_4629); } 
{ /* ./Ieee/number.scm 824 */
obj_t BgL_auxz00_4635;
if(BgL_test1667z00_605)
{ /* ./Ieee/number.scm 824 */
BgL_auxz00_4635 = BgL_yz00_74
; }  else 
{ /* ./Ieee/number.scm 824 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_yz00_74, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27301))); 
exit( -1 );} 
BgL_r2z00_1513 = 
REAL_TO_DOUBLE(BgL_auxz00_4635); } 
{ /* ./Ieee/number.scm 824 */
double BgL_auxz00_4641;
BgL_auxz00_4641 = 
pow(BgL_r1z00_1512, BgL_r2z00_1513); 
BgL_aux2705z00_1964 = 
DOUBLE_TO_REAL(BgL_auxz00_4641); } } }  else 
{ /* ./Ieee/number.scm 825 */
bool_t BgL_test1669z00_606;
BgL_test1669z00_606 = 
INTEGERP(BgL_yz00_74); 
if(BgL_test1669z00_606)
{ /* ./Ieee/number.scm 825 */
{ /* ./Ieee/number.scm 826 */
double BgL_arg1671z00_607;
{ /* ./Ieee/number.scm 826 */
long BgL_xz00_1515;
{ /* ./Ieee/number.scm 826 */
obj_t BgL_auxz00_4646;
if(BgL_test1669z00_606)
{ /* ./Ieee/number.scm 826 */
BgL_auxz00_4646 = BgL_yz00_74
; }  else 
{ /* ./Ieee/number.scm 826 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_yz00_74, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27359))); 
exit( -1 );} 
BgL_xz00_1515 = 
(long)CINT(BgL_auxz00_4646); } 
BgL_arg1671z00_607 = 
(double)(BgL_xz00_1515); } 
{ /* ./Ieee/number.scm 826 */
double BgL_r1z00_1516;
{ /* ./Ieee/number.scm 826 */
obj_t BgL_auxz00_4653;
if(
REALP(BgL_xz00_73))
{ /* ./Ieee/number.scm 826 */
BgL_auxz00_4653 = BgL_xz00_73
; }  else 
{ /* ./Ieee/number.scm 826 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6039z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_xz00_73, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27341))); 
exit( -1 );} 
BgL_r1z00_1516 = 
REAL_TO_DOUBLE(BgL_auxz00_4653); } 
{ /* ./Ieee/number.scm 826 */
double BgL_auxz00_4660;
BgL_auxz00_4660 = 
pow(BgL_r1z00_1516, BgL_arg1671z00_607); 
BgL_aux2705z00_1964 = 
DOUBLE_TO_REAL(BgL_auxz00_4660); } } } }  else 
{ /* ./Ieee/number.scm 825 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6041z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_yz00_74, "./Ieee/number.scm", ((long)27385)); 
BgL_aux2705z00_1964 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27385))); } } } }  else 
{ /* ./Ieee/number.scm 821 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6041z00zz__r4_numbers_6_5z00, BGl_string5972z00zz__r4_numbers_6_5z00, BgL_xz00_73, "./Ieee/number.scm", ((long)27433)); 
BgL_aux2705z00_1964 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27433))); } } } } } 
POP_TRACE(); 
return BgL_aux2705z00_1964;} } } } 
}



/* _expt */
obj_t BGl__exptz00zz__r4_numbers_6_5z00(obj_t BgL_envz00_2095, obj_t BgL_xz00_2096, obj_t BgL_yz00_2097)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 808 */
return 
BGl_exptz00zz__r4_numbers_6_5z00(BgL_xz00_2096, BgL_yz00_2097);} 
}



/* exact->inexact */
BGL_EXPORTED_DEF obj_t bgl_exact_to_inexact(obj_t BgL_za7za7_75)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 835 */
{ /* ./Ieee/number.scm 836 */
obj_t BgL_symbol2710z00_2618;
BgL_symbol2710z00_2618 = BGl_symbol6042z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 836 */

PUSH_TRACE(BgL_symbol2710z00_2618); BUNSPEC; 
{ /* ./Ieee/number.scm 836 */
obj_t BgL_aux2709z00_2619;
{ /* ./Ieee/number.scm 836 */
bool_t BgL_test1692z00_2620;
BgL_test1692z00_2620 = 
INTEGERP(BgL_za7za7_75); 
if(BgL_test1692z00_2620)
{ /* ./Ieee/number.scm 836 */
long BgL_xz00_2621;
{ /* ./Ieee/number.scm 836 */
obj_t BgL_auxz00_4674;
if(BgL_test1692z00_2620)
{ /* ./Ieee/number.scm 836 */
BgL_auxz00_4674 = BgL_za7za7_75
; }  else 
{ /* ./Ieee/number.scm 836 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6042z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_za7za7_75, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27729))); 
exit( -1 );} 
BgL_xz00_2621 = 
(long)CINT(BgL_auxz00_4674); } 
{ /* ./Ieee/number.scm 836 */
double BgL_auxz00_4680;
BgL_auxz00_4680 = 
(double)(BgL_xz00_2621); 
BgL_aux2709z00_2619 = 
DOUBLE_TO_REAL(BgL_auxz00_4680); } }  else 
{ /* ./Ieee/number.scm 836 */
BgL_aux2709z00_2619 = BgL_za7za7_75; } } 
POP_TRACE(); 
return BgL_aux2709z00_2619;} } } } 
}



/* _exact->inexact */
obj_t BGl__exactzd2ze3inexactz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2098, obj_t BgL_za7za7_2099)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 835 */
{ /* ./Ieee/number.scm 836 */
obj_t BgL_symbol2710z00_2623;
BgL_symbol2710z00_2623 = BGl_symbol6042z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 836 */

PUSH_TRACE(BgL_symbol2710z00_2623); BUNSPEC; 
{ /* ./Ieee/number.scm 836 */
obj_t BgL_aux2709z00_2624;
{ /* ./Ieee/number.scm 836 */
bool_t BgL_test1692z00_2625;
BgL_test1692z00_2625 = 
INTEGERP(BgL_za7za7_2099); 
if(BgL_test1692z00_2625)
{ /* ./Ieee/number.scm 836 */
long BgL_xz00_2626;
{ /* ./Ieee/number.scm 836 */
obj_t BgL_auxz00_4687;
if(BgL_test1692z00_2625)
{ /* ./Ieee/number.scm 836 */
BgL_auxz00_4687 = BgL_za7za7_2099
; }  else 
{ /* ./Ieee/number.scm 836 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6042z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_za7za7_2099, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)27729))); 
exit( -1 );} 
BgL_xz00_2626 = 
(long)CINT(BgL_auxz00_4687); } 
{ /* ./Ieee/number.scm 836 */
double BgL_auxz00_4693;
BgL_auxz00_4693 = 
(double)(BgL_xz00_2626); 
BgL_aux2709z00_2624 = 
DOUBLE_TO_REAL(BgL_auxz00_4693); } }  else 
{ /* ./Ieee/number.scm 836 */
BgL_aux2709z00_2624 = BgL_za7za7_2099; } } 
POP_TRACE(); 
return BgL_aux2709z00_2624;} } } } 
}



/* inexact->exact */
BGL_EXPORTED_DEF obj_t bgl_inexact_to_exact(obj_t BgL_za7za7_76)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 843 */
{ /* ./Ieee/number.scm 844 */
obj_t BgL_symbol2714z00_2627;
BgL_symbol2714z00_2627 = BGl_symbol6043z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 844 */

PUSH_TRACE(BgL_symbol2714z00_2627); BUNSPEC; 
{ /* ./Ieee/number.scm 844 */
obj_t BgL_aux2713z00_2628;
{ /* ./Ieee/number.scm 844 */
bool_t BgL_test1695z00_2629;
BgL_test1695z00_2629 = 
REALP(BgL_za7za7_76); 
if(BgL_test1695z00_2629)
{ /* ./Ieee/number.scm 844 */
double BgL_xz00_2630;
{ /* ./Ieee/number.scm 844 */
obj_t BgL_auxz00_4700;
if(BgL_test1695z00_2629)
{ /* ./Ieee/number.scm 844 */
BgL_auxz00_4700 = BgL_za7za7_76
; }  else 
{ /* ./Ieee/number.scm 844 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6043z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_za7za7_76, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28041))); 
exit( -1 );} 
BgL_xz00_2630 = 
REAL_TO_DOUBLE(BgL_auxz00_4700); } 
{ /* ./Ieee/number.scm 844 */
long BgL_auxz00_4706;
BgL_auxz00_4706 = 
(long)(BgL_xz00_2630); 
BgL_aux2713z00_2628 = 
BINT(BgL_auxz00_4706); } }  else 
{ /* ./Ieee/number.scm 844 */
BgL_aux2713z00_2628 = BgL_za7za7_76; } } 
POP_TRACE(); 
return BgL_aux2713z00_2628;} } } } 
}



/* _inexact->exact */
obj_t BGl__inexactzd2ze3exactz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2100, obj_t BgL_za7za7_2101)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 843 */
{ /* ./Ieee/number.scm 844 */
obj_t BgL_symbol2714z00_2632;
BgL_symbol2714z00_2632 = BGl_symbol6043z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 844 */

PUSH_TRACE(BgL_symbol2714z00_2632); BUNSPEC; 
{ /* ./Ieee/number.scm 844 */
obj_t BgL_aux2713z00_2633;
{ /* ./Ieee/number.scm 844 */
bool_t BgL_test1695z00_2634;
BgL_test1695z00_2634 = 
REALP(BgL_za7za7_2101); 
if(BgL_test1695z00_2634)
{ /* ./Ieee/number.scm 844 */
double BgL_xz00_2635;
{ /* ./Ieee/number.scm 844 */
obj_t BgL_auxz00_4713;
if(BgL_test1695z00_2634)
{ /* ./Ieee/number.scm 844 */
BgL_auxz00_4713 = BgL_za7za7_2101
; }  else 
{ /* ./Ieee/number.scm 844 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6043z00zz__r4_numbers_6_5z00, BGl_string5955z00zz__r4_numbers_6_5z00, BgL_za7za7_2101, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28041))); 
exit( -1 );} 
BgL_xz00_2635 = 
REAL_TO_DOUBLE(BgL_auxz00_4713); } 
{ /* ./Ieee/number.scm 844 */
long BgL_auxz00_4719;
BgL_auxz00_4719 = 
(long)(BgL_xz00_2635); 
BgL_aux2713z00_2633 = 
BINT(BgL_auxz00_4719); } }  else 
{ /* ./Ieee/number.scm 844 */
BgL_aux2713z00_2633 = BgL_za7za7_2101; } } 
POP_TRACE(); 
return BgL_aux2713z00_2633;} } } } 
}



/* 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 */
{ /* ./Ieee/number.scm 852 */
obj_t BgL_symbol2718z00_1969;
BgL_symbol2718z00_1969 = BGl_symbol6044z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 852 */

PUSH_TRACE(BgL_symbol2718z00_1969); BUNSPEC; 
{ /* ./Ieee/number.scm 852 */
char * BgL_aux2717z00_1970;
if(
NULLP(BgL_radixz00_78))
{ /* ./Ieee/number.scm 852 */
BgL_radixz00_78 = 
BINT(((long)10)); }  else 
{ /* ./Ieee/number.scm 854 */
obj_t BgL_pairz00_1533;
{ /* ./Ieee/number.scm 854 */
obj_t BgL_aux5148z00_2452;
BgL_aux5148z00_2452 = BgL_radixz00_78; 
if(
PAIRP(BgL_aux5148z00_2452))
{ /* ./Ieee/number.scm 854 */
BgL_pairz00_1533 = BgL_aux5148z00_2452; }  else 
{ /* ./Ieee/number.scm 854 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6044z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_aux5148z00_2452, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28426))); 
exit( -1 );} } 
BgL_radixz00_78 = 
CAR(BgL_pairz00_1533); } 
if(
INTEGERP(BgL_xz00_77))
{ /* ./Ieee/number.scm 856 */
{ /* ./Ieee/number.scm 857 */
obj_t BgL_list1703z00_616;
BgL_list1703z00_616 = 
MAKE_PAIR(BgL_radixz00_78, BNIL); 
{ /* ./Ieee/number.scm 857 */
obj_t BgL_auxz00_4736;
{ /* ./Ieee/number.scm 857 */
long BgL_auxz00_4737;
{ /* ./Ieee/number.scm 857 */
obj_t BgL_auxz00_4738;
if(
INTEGERP(BgL_xz00_77))
{ /* ./Ieee/number.scm 857 */
BgL_auxz00_4738 = BgL_xz00_77
; }  else 
{ /* ./Ieee/number.scm 857 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6044z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_xz00_77, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28466))); 
exit( -1 );} 
BgL_auxz00_4737 = 
(long)CINT(BgL_auxz00_4738); } 
BgL_auxz00_4736 = 
BGl_integerzd2ze3stringz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_4737, BgL_list1703z00_616); } 
BgL_aux2717z00_1970 = 
BSTRING_TO_STRING(BgL_auxz00_4736); } } }  else 
{ /* ./Ieee/number.scm 858 */
bool_t BgL_test1705z00_617;
BgL_test1705z00_617 = 
REALP(BgL_xz00_77); 
if(BgL_test1705z00_617)
{ /* ./Ieee/number.scm 858 */
{ /* ./Ieee/number.scm 859 */
obj_t BgL_realz00_1536;
if(BgL_test1705z00_617)
{ /* ./Ieee/number.scm 859 */
BgL_realz00_1536 = BgL_xz00_77; }  else 
{ /* ./Ieee/number.scm 859 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6044z00zz__r4_numbers_6_5z00, BGl_string6045z00zz__r4_numbers_6_5z00, BgL_xz00_77, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28533))); 
exit( -1 );} 
{ /* ./Ieee/number.scm 859 */
obj_t BgL_auxz00_4753;
{ /* ./Ieee/number.scm 859 */
double BgL_auxz00_4754;
BgL_auxz00_4754 = 
REAL_TO_DOUBLE(BgL_realz00_1536); 
BgL_auxz00_4753 = 
real_to_string(BgL_auxz00_4754); } 
BgL_aux2717z00_1970 = 
BSTRING_TO_STRING(BgL_auxz00_4753); } } }  else 
{ /* ./Ieee/number.scm 858 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6046z00zz__r4_numbers_6_5z00, BGl_string6047z00zz__r4_numbers_6_5z00, BgL_xz00_77, "./Ieee/number.scm", ((long)28556)); 
{ /* ./Ieee/number.scm 861 */
obj_t BgL_auxz00_4759;
{ /* ./Ieee/number.scm 861 */
obj_t BgL_aux5189z00_2458;
BgL_aux5189z00_2458 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28556))); 
if(
STRINGP(BgL_aux5189z00_2458))
{ /* ./Ieee/number.scm 861 */
BgL_auxz00_4759 = BgL_aux5189z00_2458
; }  else 
{ /* ./Ieee/number.scm 861 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6044z00zz__r4_numbers_6_5z00, BGl_string6048z00zz__r4_numbers_6_5z00, BgL_aux5189z00_2458, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28556))); 
exit( -1 );} } 
BgL_aux2717z00_1970 = 
BSTRING_TO_STRING(BgL_auxz00_4759); } } } 
POP_TRACE(); 
return BgL_aux2717z00_1970;} } } } 
}



/* _number->string */
obj_t BGl__numberzd2ze3stringz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2102, obj_t BgL_xz00_2103, obj_t BgL_radixz00_2104)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 851 */
{ /* ./Ieee/number.scm 852 */
char * BgL_auxz00_4769;
BgL_auxz00_4769 = 
BGl_numberzd2ze3stringz31zz__r4_numbers_6_5z00(BgL_xz00_2103, BgL_radixz00_2104); 
return 
string_to_bstring(BgL_auxz00_4769);} } 
}



/* 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 */
{ /* ./Ieee/number.scm 894 */
obj_t BgL_symbol2722z00_1971;
BgL_symbol2722z00_1971 = BGl_symbol6049z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 894 */

PUSH_TRACE(BgL_symbol2722z00_1971); BUNSPEC; 
{ /* ./Ieee/number.scm 894 */
obj_t BgL_aux2721z00_1972;
{ 
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 */
bool_t BgL_test1731z00_634;
BgL_test1731z00_634 = 
PAIRP(BgL_radixz00_80); 
if(BgL_test1731z00_634)
{ /* ./Ieee/number.scm 925 */
bool_t BgL_test1732z00_635;
{ /* ./Ieee/number.scm 925 */
obj_t BgL_arg1739z00_637;
{ /* ./Ieee/number.scm 925 */
obj_t BgL_pairz00_1542;
if(BgL_test1731z00_634)
{ /* ./Ieee/number.scm 925 */
BgL_pairz00_1542 = BgL_radixz00_80; }  else 
{ /* ./Ieee/number.scm 925 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_radixz00_80, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30368))); 
exit( -1 );} 
BgL_arg1739z00_637 = 
CDR(BgL_pairz00_1542); } 
BgL_test1732z00_635 = 
NULLP(BgL_arg1739z00_637); } 
if(BgL_test1732z00_635)
{ /* ./Ieee/number.scm 925 */
obj_t BgL_arg1734z00_636;
{ /* ./Ieee/number.scm 925 */
obj_t BgL_pairz00_1544;
if(
PAIRP(BgL_radixz00_80))
{ /* ./Ieee/number.scm 925 */
BgL_pairz00_1544 = BgL_radixz00_80; }  else 
{ /* ./Ieee/number.scm 925 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5974z00zz__r4_numbers_6_5z00, BgL_radixz00_80, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30368))); 
exit( -1 );} 
BgL_arg1734z00_636 = 
CAR(BgL_pairz00_1544); } 
BgL_valz00_629 = BgL_arg1734z00_636; 
{ 

{ /* ./Ieee/number.scm 928 */
bool_t BgL_test1745z00_640;
BgL_test1745z00_640 = 
INTEGERP(BgL_valz00_629); 
if(BgL_test1745z00_640)
{ /* ./Ieee/number.scm 928 */
long BgL_auxz00_4796;
{ /* ./Ieee/number.scm 928 */
obj_t BgL_auxz00_4797;
if(BgL_test1745z00_640)
{ /* ./Ieee/number.scm 928 */
BgL_auxz00_4797 = BgL_valz00_629
; }  else 
{ /* ./Ieee/number.scm 928 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_valz00_629, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30413))); 
exit( -1 );} 
BgL_auxz00_4796 = 
(long)CINT(BgL_auxz00_4797); } 
switch( BgL_auxz00_4796) { case ((long)2) : 
case ((long)8) : 
case ((long)10) : 
case ((long)16) : 

BgL_rxz00_620 = BgL_valz00_629; break;
default: 
BgL_case_else1010z00_638:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6054z00zz__r4_numbers_6_5z00, BGl_string6055z00zz__r4_numbers_6_5z00, BgL_valz00_629, "./Ieee/number.scm", ((long)30459)); 
BgL_rxz00_620 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30413))); } }  else 
{ /* ./Ieee/number.scm 928 */
goto BgL_case_else1010z00_638;} } } }  else 
{ /* ./Ieee/number.scm 925 */
BgL_tagzd2103zd2_631:
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6054z00zz__r4_numbers_6_5z00, BGl_string6056z00zz__r4_numbers_6_5z00, BgL_radixz00_80, "./Ieee/number.scm", ((long)30525)); 
BgL_rxz00_620 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30368))); } }  else 
{ /* ./Ieee/number.scm 925 */
goto BgL_tagzd2103zd2_631;} } } 
{ /* ./Ieee/number.scm 937 */
bool_t BgL_test1711z00_621;
{ /* ./Ieee/number.scm 937 */
int BgL_arg1725z00_626;
{ /* ./Ieee/number.scm 937 */
obj_t BgL_stringz00_1551;
if(
STRINGP(BgL_xz00_79))
{ /* ./Ieee/number.scm 937 */
BgL_stringz00_1551 = BgL_xz00_79; }  else 
{ /* ./Ieee/number.scm 937 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_79, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30635))); 
exit( -1 );} 
BgL_arg1725z00_626 = 
STRING_LENGTH(BgL_stringz00_1551); } 
{ /* ./Ieee/number.scm 937 */
long BgL_auxz00_4812;
BgL_auxz00_4812 = 
(long)(BgL_arg1725z00_626); 
BgL_test1711z00_621 = 
(BgL_auxz00_4812==((long)0)); } } 
if(BgL_test1711z00_621)
{ /* ./Ieee/number.scm 937 */
BgL_aux2721z00_1972 = BFALSE; }  else 
{ /* ./Ieee/number.scm 939 */
bool_t BgL_testz00_4816;
BgL_xz00_673 = BgL_xz00_79; 
BgL_rz00_674 = BgL_rxz00_620; 
{ 
long BgL_iz00_676;
{ /* ./Ieee/number.scm 868 */
long BgL_arg1821z00_678;
{ /* ./Ieee/number.scm 868 */
int BgL_arg1824z00_679;
{ /* ./Ieee/number.scm 868 */
obj_t BgL_stringz00_1654;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 868 */
BgL_stringz00_1654 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 868 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28926))); 
exit( -1 );} 
BgL_arg1824z00_679 = 
STRING_LENGTH(BgL_stringz00_1654); } 
{ /* ./Ieee/number.scm 868 */
long BgL_auxz00_4823;
BgL_auxz00_4823 = 
(long)(BgL_arg1824z00_679); 
BgL_arg1821z00_678 = 
(BgL_auxz00_4823-((long)1)); } } 
BgL_iz00_676 = BgL_arg1821z00_678; 
BgL_loopz00_677:
if(
(((long)-1)==BgL_iz00_676))
{ /* ./Ieee/number.scm 869 */
BgL_testz00_4816 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 871 */
bool_t BgL_test1829z00_682;
{ /* ./Ieee/number.scm 871 */
bool_t BgL_test1913z00_712;
{ /* ./Ieee/number.scm 871 */
unsigned char BgL_arg1921z00_715;
{ /* ./Ieee/number.scm 871 */
unsigned char BgL_res2501z00_1667;
{ /* ./Ieee/number.scm 871 */
obj_t BgL_stringz00_1659;int BgL_kz00_1660;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 871 */
BgL_stringz00_1659 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 871 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28998))); 
exit( -1 );} 
BgL_kz00_1660 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 871 */
bool_t BgL_testz00_4834;
{ /* ./Ieee/number.scm 871 */
int BgL_auxz00_4835;
BgL_auxz00_4835 = 
STRING_LENGTH(BgL_stringz00_1659); 
BgL_testz00_4834 = 
BOUND_CHECK(BgL_kz00_1660, BgL_auxz00_4835); } 
if(BgL_testz00_4834)
{ /* ./Ieee/number.scm 871 */
BgL_res2501z00_1667 = 
STRING_REF(BgL_stringz00_1659, BgL_kz00_1660); }  else 
{ /* ./Ieee/number.scm 871 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1660), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 871 */
obj_t BgL_auxz00_4841;
{ /* ./Ieee/number.scm 871 */
obj_t BgL_aux5441z00_2492;
BgL_aux5441z00_2492 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28998))); 
if(
CHARP(BgL_aux5441z00_2492))
{ /* ./Ieee/number.scm 871 */
BgL_auxz00_4841 = BgL_aux5441z00_2492
; }  else 
{ /* ./Ieee/number.scm 871 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5441z00_2492, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)28998))); 
exit( -1 );} } 
BgL_res2501z00_1667 = 
(unsigned char)CCHAR(BgL_auxz00_4841); } } } } 
BgL_arg1921z00_715 = BgL_res2501z00_1667; } 
BgL_test1913z00_712 = 
(BgL_arg1921z00_715>=((unsigned char)'0')); } 
if(BgL_test1913z00_712)
{ /* ./Ieee/number.scm 872 */
bool_t BgL_test1914z00_713;
{ /* ./Ieee/number.scm 872 */
unsigned char BgL_arg1917z00_714;
{ /* ./Ieee/number.scm 872 */
unsigned char BgL_res2502z00_1678;
{ /* ./Ieee/number.scm 872 */
obj_t BgL_stringz00_1670;int BgL_kz00_1671;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 872 */
BgL_stringz00_1670 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 872 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29036))); 
exit( -1 );} 
BgL_kz00_1671 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 872 */
bool_t BgL_testz00_4858;
{ /* ./Ieee/number.scm 872 */
int BgL_auxz00_4859;
BgL_auxz00_4859 = 
STRING_LENGTH(BgL_stringz00_1670); 
BgL_testz00_4858 = 
BOUND_CHECK(BgL_kz00_1671, BgL_auxz00_4859); } 
if(BgL_testz00_4858)
{ /* ./Ieee/number.scm 872 */
BgL_res2502z00_1678 = 
STRING_REF(BgL_stringz00_1670, BgL_kz00_1671); }  else 
{ /* ./Ieee/number.scm 872 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1671), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 872 */
obj_t BgL_auxz00_4865;
{ /* ./Ieee/number.scm 872 */
obj_t BgL_aux5471z00_2496;
BgL_aux5471z00_2496 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29036))); 
if(
CHARP(BgL_aux5471z00_2496))
{ /* ./Ieee/number.scm 872 */
BgL_auxz00_4865 = BgL_aux5471z00_2496
; }  else 
{ /* ./Ieee/number.scm 872 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5471z00_2496, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29036))); 
exit( -1 );} } 
BgL_res2502z00_1678 = 
(unsigned char)CCHAR(BgL_auxz00_4865); } } } } 
BgL_arg1917z00_714 = BgL_res2502z00_1678; } 
BgL_test1914z00_713 = 
(BgL_arg1917z00_714<=((unsigned char)'1')); } 
if(BgL_test1914z00_713)
{ /* ./Ieee/number.scm 873 */
long BgL_n1z00_1681;
{ /* ./Ieee/number.scm 873 */
obj_t BgL_auxz00_4876;
if(
INTEGERP(BgL_rz00_674))
{ /* ./Ieee/number.scm 873 */
BgL_auxz00_4876 = BgL_rz00_674
; }  else 
{ /* ./Ieee/number.scm 873 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_rz00_674, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29071))); 
exit( -1 );} 
BgL_n1z00_1681 = 
(long)CINT(BgL_auxz00_4876); } 
BgL_test1829z00_682 = 
(BgL_n1z00_1681>=((long)2)); }  else 
{ /* ./Ieee/number.scm 872 */
BgL_test1829z00_682 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 871 */
BgL_test1829z00_682 = ((bool_t)0); } } 
if(BgL_test1829z00_682)
{ /* ./Ieee/number.scm 871 */
{ 
long BgL_iz00_4885;
BgL_iz00_4885 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_4885; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 875 */
bool_t BgL_test1836z00_684;
{ /* ./Ieee/number.scm 875 */
bool_t BgL_test1902z00_708;
{ /* ./Ieee/number.scm 875 */
unsigned char BgL_arg1910z00_711;
{ /* ./Ieee/number.scm 875 */
unsigned char BgL_res2503z00_1693;
{ /* ./Ieee/number.scm 875 */
obj_t BgL_stringz00_1685;int BgL_kz00_1686;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 875 */
BgL_stringz00_1685 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 875 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29120))); 
exit( -1 );} 
BgL_kz00_1686 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 875 */
bool_t BgL_testz00_4893;
{ /* ./Ieee/number.scm 875 */
int BgL_auxz00_4894;
BgL_auxz00_4894 = 
STRING_LENGTH(BgL_stringz00_1685); 
BgL_testz00_4893 = 
BOUND_CHECK(BgL_kz00_1686, BgL_auxz00_4894); } 
if(BgL_testz00_4893)
{ /* ./Ieee/number.scm 875 */
BgL_res2503z00_1693 = 
STRING_REF(BgL_stringz00_1685, BgL_kz00_1686); }  else 
{ /* ./Ieee/number.scm 875 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1686), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 875 */
obj_t BgL_auxz00_4900;
{ /* ./Ieee/number.scm 875 */
obj_t BgL_aux5512z00_2502;
BgL_aux5512z00_2502 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29120))); 
if(
CHARP(BgL_aux5512z00_2502))
{ /* ./Ieee/number.scm 875 */
BgL_auxz00_4900 = BgL_aux5512z00_2502
; }  else 
{ /* ./Ieee/number.scm 875 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5512z00_2502, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29120))); 
exit( -1 );} } 
BgL_res2503z00_1693 = 
(unsigned char)CCHAR(BgL_auxz00_4900); } } } } 
BgL_arg1910z00_711 = BgL_res2503z00_1693; } 
BgL_test1902z00_708 = 
(BgL_arg1910z00_711>=((unsigned char)'2')); } 
if(BgL_test1902z00_708)
{ /* ./Ieee/number.scm 876 */
bool_t BgL_test1903z00_709;
{ /* ./Ieee/number.scm 876 */
unsigned char BgL_arg1906z00_710;
{ /* ./Ieee/number.scm 876 */
unsigned char BgL_res2504z00_1704;
{ /* ./Ieee/number.scm 876 */
obj_t BgL_stringz00_1696;int BgL_kz00_1697;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 876 */
BgL_stringz00_1696 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 876 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29158))); 
exit( -1 );} 
BgL_kz00_1697 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 876 */
bool_t BgL_testz00_4917;
{ /* ./Ieee/number.scm 876 */
int BgL_auxz00_4918;
BgL_auxz00_4918 = 
STRING_LENGTH(BgL_stringz00_1696); 
BgL_testz00_4917 = 
BOUND_CHECK(BgL_kz00_1697, BgL_auxz00_4918); } 
if(BgL_testz00_4917)
{ /* ./Ieee/number.scm 876 */
BgL_res2504z00_1704 = 
STRING_REF(BgL_stringz00_1696, BgL_kz00_1697); }  else 
{ /* ./Ieee/number.scm 876 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1697), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 876 */
obj_t BgL_auxz00_4924;
{ /* ./Ieee/number.scm 876 */
obj_t BgL_aux5542z00_2506;
BgL_aux5542z00_2506 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29158))); 
if(
CHARP(BgL_aux5542z00_2506))
{ /* ./Ieee/number.scm 876 */
BgL_auxz00_4924 = BgL_aux5542z00_2506
; }  else 
{ /* ./Ieee/number.scm 876 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5542z00_2506, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29158))); 
exit( -1 );} } 
BgL_res2504z00_1704 = 
(unsigned char)CCHAR(BgL_auxz00_4924); } } } } 
BgL_arg1906z00_710 = BgL_res2504z00_1704; } 
BgL_test1903z00_709 = 
(BgL_arg1906z00_710<=((unsigned char)'7')); } 
if(BgL_test1903z00_709)
{ /* ./Ieee/number.scm 877 */
long BgL_n1z00_1707;
{ /* ./Ieee/number.scm 877 */
obj_t BgL_auxz00_4935;
if(
INTEGERP(BgL_rz00_674))
{ /* ./Ieee/number.scm 877 */
BgL_auxz00_4935 = BgL_rz00_674
; }  else 
{ /* ./Ieee/number.scm 877 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_rz00_674, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29193))); 
exit( -1 );} 
BgL_n1z00_1707 = 
(long)CINT(BgL_auxz00_4935); } 
BgL_test1836z00_684 = 
(BgL_n1z00_1707>=((long)8)); }  else 
{ /* ./Ieee/number.scm 876 */
BgL_test1836z00_684 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 875 */
BgL_test1836z00_684 = ((bool_t)0); } } 
if(BgL_test1836z00_684)
{ /* ./Ieee/number.scm 875 */
{ 
long BgL_iz00_4944;
BgL_iz00_4944 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_4944; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 879 */
bool_t BgL_test1841z00_686;
{ /* ./Ieee/number.scm 879 */
bool_t BgL_test1891z00_704;
{ /* ./Ieee/number.scm 879 */
unsigned char BgL_arg1899z00_707;
{ /* ./Ieee/number.scm 879 */
unsigned char BgL_res2505z00_1719;
{ /* ./Ieee/number.scm 879 */
obj_t BgL_stringz00_1711;int BgL_kz00_1712;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 879 */
BgL_stringz00_1711 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 879 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29242))); 
exit( -1 );} 
BgL_kz00_1712 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 879 */
bool_t BgL_testz00_4952;
{ /* ./Ieee/number.scm 879 */
int BgL_auxz00_4953;
BgL_auxz00_4953 = 
STRING_LENGTH(BgL_stringz00_1711); 
BgL_testz00_4952 = 
BOUND_CHECK(BgL_kz00_1712, BgL_auxz00_4953); } 
if(BgL_testz00_4952)
{ /* ./Ieee/number.scm 879 */
BgL_res2505z00_1719 = 
STRING_REF(BgL_stringz00_1711, BgL_kz00_1712); }  else 
{ /* ./Ieee/number.scm 879 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1712), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 879 */
obj_t BgL_auxz00_4959;
{ /* ./Ieee/number.scm 879 */
obj_t BgL_aux5583z00_2512;
BgL_aux5583z00_2512 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29242))); 
if(
CHARP(BgL_aux5583z00_2512))
{ /* ./Ieee/number.scm 879 */
BgL_auxz00_4959 = BgL_aux5583z00_2512
; }  else 
{ /* ./Ieee/number.scm 879 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5583z00_2512, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29242))); 
exit( -1 );} } 
BgL_res2505z00_1719 = 
(unsigned char)CCHAR(BgL_auxz00_4959); } } } } 
BgL_arg1899z00_707 = BgL_res2505z00_1719; } 
BgL_test1891z00_704 = 
(BgL_arg1899z00_707>=((unsigned char)'8')); } 
if(BgL_test1891z00_704)
{ /* ./Ieee/number.scm 880 */
bool_t BgL_test1892z00_705;
{ /* ./Ieee/number.scm 880 */
unsigned char BgL_arg1895z00_706;
{ /* ./Ieee/number.scm 880 */
unsigned char BgL_res2506z00_1730;
{ /* ./Ieee/number.scm 880 */
obj_t BgL_stringz00_1722;int BgL_kz00_1723;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 880 */
BgL_stringz00_1722 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 880 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29280))); 
exit( -1 );} 
BgL_kz00_1723 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 880 */
bool_t BgL_testz00_4976;
{ /* ./Ieee/number.scm 880 */
int BgL_auxz00_4977;
BgL_auxz00_4977 = 
STRING_LENGTH(BgL_stringz00_1722); 
BgL_testz00_4976 = 
BOUND_CHECK(BgL_kz00_1723, BgL_auxz00_4977); } 
if(BgL_testz00_4976)
{ /* ./Ieee/number.scm 880 */
BgL_res2506z00_1730 = 
STRING_REF(BgL_stringz00_1722, BgL_kz00_1723); }  else 
{ /* ./Ieee/number.scm 880 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1723), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 880 */
obj_t BgL_auxz00_4983;
{ /* ./Ieee/number.scm 880 */
obj_t BgL_aux5613z00_2516;
BgL_aux5613z00_2516 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29280))); 
if(
CHARP(BgL_aux5613z00_2516))
{ /* ./Ieee/number.scm 880 */
BgL_auxz00_4983 = BgL_aux5613z00_2516
; }  else 
{ /* ./Ieee/number.scm 880 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5613z00_2516, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29280))); 
exit( -1 );} } 
BgL_res2506z00_1730 = 
(unsigned char)CCHAR(BgL_auxz00_4983); } } } } 
BgL_arg1895z00_706 = BgL_res2506z00_1730; } 
BgL_test1892z00_705 = 
(BgL_arg1895z00_706<=((unsigned char)'9')); } 
if(BgL_test1892z00_705)
{ /* ./Ieee/number.scm 881 */
long BgL_n1z00_1733;
{ /* ./Ieee/number.scm 881 */
obj_t BgL_auxz00_4994;
if(
INTEGERP(BgL_rz00_674))
{ /* ./Ieee/number.scm 881 */
BgL_auxz00_4994 = BgL_rz00_674
; }  else 
{ /* ./Ieee/number.scm 881 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_rz00_674, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29315))); 
exit( -1 );} 
BgL_n1z00_1733 = 
(long)CINT(BgL_auxz00_4994); } 
BgL_test1841z00_686 = 
(BgL_n1z00_1733>=((long)10)); }  else 
{ /* ./Ieee/number.scm 880 */
BgL_test1841z00_686 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 879 */
BgL_test1841z00_686 = ((bool_t)0); } } 
if(BgL_test1841z00_686)
{ /* ./Ieee/number.scm 879 */
{ 
long BgL_iz00_5003;
BgL_iz00_5003 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_5003; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 883 */
bool_t BgL_test1846z00_688;
{ /* ./Ieee/number.scm 883 */
bool_t BgL_test1879z00_700;
{ /* ./Ieee/number.scm 883 */
unsigned char BgL_arg1888z00_703;
{ /* ./Ieee/number.scm 883 */
unsigned char BgL_res2507z00_1745;
{ /* ./Ieee/number.scm 883 */
obj_t BgL_stringz00_1737;int BgL_kz00_1738;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 883 */
BgL_stringz00_1737 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 883 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29365))); 
exit( -1 );} 
BgL_kz00_1738 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 883 */
bool_t BgL_testz00_5011;
{ /* ./Ieee/number.scm 883 */
int BgL_auxz00_5012;
BgL_auxz00_5012 = 
STRING_LENGTH(BgL_stringz00_1737); 
BgL_testz00_5011 = 
BOUND_CHECK(BgL_kz00_1738, BgL_auxz00_5012); } 
if(BgL_testz00_5011)
{ /* ./Ieee/number.scm 883 */
BgL_res2507z00_1745 = 
STRING_REF(BgL_stringz00_1737, BgL_kz00_1738); }  else 
{ /* ./Ieee/number.scm 883 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1738), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 883 */
obj_t BgL_auxz00_5018;
{ /* ./Ieee/number.scm 883 */
obj_t BgL_aux5654z00_2522;
BgL_aux5654z00_2522 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29365))); 
if(
CHARP(BgL_aux5654z00_2522))
{ /* ./Ieee/number.scm 883 */
BgL_auxz00_5018 = BgL_aux5654z00_2522
; }  else 
{ /* ./Ieee/number.scm 883 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5654z00_2522, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29365))); 
exit( -1 );} } 
BgL_res2507z00_1745 = 
(unsigned char)CCHAR(BgL_auxz00_5018); } } } } 
BgL_arg1888z00_703 = BgL_res2507z00_1745; } 
BgL_test1879z00_700 = 
(BgL_arg1888z00_703>=((unsigned char)'a')); } 
if(BgL_test1879z00_700)
{ /* ./Ieee/number.scm 884 */
bool_t BgL_test1880z00_701;
{ /* ./Ieee/number.scm 884 */
unsigned char BgL_arg1884z00_702;
{ /* ./Ieee/number.scm 884 */
unsigned char BgL_res2508z00_1756;
{ /* ./Ieee/number.scm 884 */
obj_t BgL_stringz00_1748;int BgL_kz00_1749;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 884 */
BgL_stringz00_1748 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 884 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29403))); 
exit( -1 );} 
BgL_kz00_1749 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 884 */
bool_t BgL_testz00_5035;
{ /* ./Ieee/number.scm 884 */
int BgL_auxz00_5036;
BgL_auxz00_5036 = 
STRING_LENGTH(BgL_stringz00_1748); 
BgL_testz00_5035 = 
BOUND_CHECK(BgL_kz00_1749, BgL_auxz00_5036); } 
if(BgL_testz00_5035)
{ /* ./Ieee/number.scm 884 */
BgL_res2508z00_1756 = 
STRING_REF(BgL_stringz00_1748, BgL_kz00_1749); }  else 
{ /* ./Ieee/number.scm 884 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1749), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 884 */
obj_t BgL_auxz00_5042;
{ /* ./Ieee/number.scm 884 */
obj_t BgL_aux5684z00_2526;
BgL_aux5684z00_2526 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29403))); 
if(
CHARP(BgL_aux5684z00_2526))
{ /* ./Ieee/number.scm 884 */
BgL_auxz00_5042 = BgL_aux5684z00_2526
; }  else 
{ /* ./Ieee/number.scm 884 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5684z00_2526, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29403))); 
exit( -1 );} } 
BgL_res2508z00_1756 = 
(unsigned char)CCHAR(BgL_auxz00_5042); } } } } 
BgL_arg1884z00_702 = BgL_res2508z00_1756; } 
BgL_test1880z00_701 = 
(BgL_arg1884z00_702<=((unsigned char)'f')); } 
if(BgL_test1880z00_701)
{ /* ./Ieee/number.scm 885 */
long BgL_n1z00_1759;
{ /* ./Ieee/number.scm 885 */
obj_t BgL_auxz00_5053;
if(
INTEGERP(BgL_rz00_674))
{ /* ./Ieee/number.scm 885 */
BgL_auxz00_5053 = BgL_rz00_674
; }  else 
{ /* ./Ieee/number.scm 885 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_rz00_674, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29437))); 
exit( -1 );} 
BgL_n1z00_1759 = 
(long)CINT(BgL_auxz00_5053); } 
BgL_test1846z00_688 = 
(BgL_n1z00_1759==((long)16)); }  else 
{ /* ./Ieee/number.scm 884 */
BgL_test1846z00_688 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 883 */
BgL_test1846z00_688 = ((bool_t)0); } } 
if(BgL_test1846z00_688)
{ /* ./Ieee/number.scm 883 */
{ 
long BgL_iz00_5062;
BgL_iz00_5062 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_5062; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 887 */
bool_t BgL_test1851z00_690;
{ /* ./Ieee/number.scm 887 */
bool_t BgL_test1868z00_696;
{ /* ./Ieee/number.scm 887 */
unsigned char BgL_arg1876z00_699;
{ /* ./Ieee/number.scm 887 */
unsigned char BgL_res2509z00_1771;
{ /* ./Ieee/number.scm 887 */
obj_t BgL_stringz00_1763;int BgL_kz00_1764;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 887 */
BgL_stringz00_1763 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 887 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29487))); 
exit( -1 );} 
BgL_kz00_1764 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 887 */
bool_t BgL_testz00_5070;
{ /* ./Ieee/number.scm 887 */
int BgL_auxz00_5071;
BgL_auxz00_5071 = 
STRING_LENGTH(BgL_stringz00_1763); 
BgL_testz00_5070 = 
BOUND_CHECK(BgL_kz00_1764, BgL_auxz00_5071); } 
if(BgL_testz00_5070)
{ /* ./Ieee/number.scm 887 */
BgL_res2509z00_1771 = 
STRING_REF(BgL_stringz00_1763, BgL_kz00_1764); }  else 
{ /* ./Ieee/number.scm 887 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1764), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 887 */
obj_t BgL_auxz00_5077;
{ /* ./Ieee/number.scm 887 */
obj_t BgL_aux5725z00_2532;
BgL_aux5725z00_2532 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29487))); 
if(
CHARP(BgL_aux5725z00_2532))
{ /* ./Ieee/number.scm 887 */
BgL_auxz00_5077 = BgL_aux5725z00_2532
; }  else 
{ /* ./Ieee/number.scm 887 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5725z00_2532, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29487))); 
exit( -1 );} } 
BgL_res2509z00_1771 = 
(unsigned char)CCHAR(BgL_auxz00_5077); } } } } 
BgL_arg1876z00_699 = BgL_res2509z00_1771; } 
BgL_test1868z00_696 = 
(BgL_arg1876z00_699>=((unsigned char)'A')); } 
if(BgL_test1868z00_696)
{ /* ./Ieee/number.scm 888 */
bool_t BgL_test1869z00_697;
{ /* ./Ieee/number.scm 888 */
unsigned char BgL_arg1872z00_698;
{ /* ./Ieee/number.scm 888 */
unsigned char BgL_res2510z00_1782;
{ /* ./Ieee/number.scm 888 */
obj_t BgL_stringz00_1774;int BgL_kz00_1775;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 888 */
BgL_stringz00_1774 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 888 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29525))); 
exit( -1 );} 
BgL_kz00_1775 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 888 */
bool_t BgL_testz00_5094;
{ /* ./Ieee/number.scm 888 */
int BgL_auxz00_5095;
BgL_auxz00_5095 = 
STRING_LENGTH(BgL_stringz00_1774); 
BgL_testz00_5094 = 
BOUND_CHECK(BgL_kz00_1775, BgL_auxz00_5095); } 
if(BgL_testz00_5094)
{ /* ./Ieee/number.scm 888 */
BgL_res2510z00_1782 = 
STRING_REF(BgL_stringz00_1774, BgL_kz00_1775); }  else 
{ /* ./Ieee/number.scm 888 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1775), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 888 */
obj_t BgL_auxz00_5101;
{ /* ./Ieee/number.scm 888 */
obj_t BgL_aux5755z00_2536;
BgL_aux5755z00_2536 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29525))); 
if(
CHARP(BgL_aux5755z00_2536))
{ /* ./Ieee/number.scm 888 */
BgL_auxz00_5101 = BgL_aux5755z00_2536
; }  else 
{ /* ./Ieee/number.scm 888 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5755z00_2536, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29525))); 
exit( -1 );} } 
BgL_res2510z00_1782 = 
(unsigned char)CCHAR(BgL_auxz00_5101); } } } } 
BgL_arg1872z00_698 = BgL_res2510z00_1782; } 
BgL_test1869z00_697 = 
(BgL_arg1872z00_698<=((unsigned char)'F')); } 
if(BgL_test1869z00_697)
{ /* ./Ieee/number.scm 889 */
long BgL_n1z00_1785;
{ /* ./Ieee/number.scm 889 */
obj_t BgL_auxz00_5112;
if(
INTEGERP(BgL_rz00_674))
{ /* ./Ieee/number.scm 889 */
BgL_auxz00_5112 = BgL_rz00_674
; }  else 
{ /* ./Ieee/number.scm 889 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_rz00_674, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29559))); 
exit( -1 );} 
BgL_n1z00_1785 = 
(long)CINT(BgL_auxz00_5112); } 
BgL_test1851z00_690 = 
(BgL_n1z00_1785==((long)16)); }  else 
{ /* ./Ieee/number.scm 888 */
BgL_test1851z00_690 = ((bool_t)0); } }  else 
{ /* ./Ieee/number.scm 887 */
BgL_test1851z00_690 = ((bool_t)0); } } 
if(BgL_test1851z00_690)
{ /* ./Ieee/number.scm 887 */
{ 
long BgL_iz00_5121;
BgL_iz00_5121 = 
(BgL_iz00_676-((long)1)); 
BgL_iz00_676 = BgL_iz00_5121; 
goto BgL_loopz00_677;} }  else 
{ /* ./Ieee/number.scm 891 */
bool_t BgL_test1856z00_692;
{ /* ./Ieee/number.scm 891 */
bool_t BgL_test1858z00_693;
{ /* ./Ieee/number.scm 891 */
unsigned char BgL_arg1865z00_695;
{ /* ./Ieee/number.scm 891 */
unsigned char BgL_res2511z00_1797;
{ /* ./Ieee/number.scm 891 */
obj_t BgL_stringz00_1789;int BgL_kz00_1790;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 891 */
BgL_stringz00_1789 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 891 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29607))); 
exit( -1 );} 
BgL_kz00_1790 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 891 */
bool_t BgL_testz00_5129;
{ /* ./Ieee/number.scm 891 */
int BgL_auxz00_5130;
BgL_auxz00_5130 = 
STRING_LENGTH(BgL_stringz00_1789); 
BgL_testz00_5129 = 
BOUND_CHECK(BgL_kz00_1790, BgL_auxz00_5130); } 
if(BgL_testz00_5129)
{ /* ./Ieee/number.scm 891 */
BgL_res2511z00_1797 = 
STRING_REF(BgL_stringz00_1789, BgL_kz00_1790); }  else 
{ /* ./Ieee/number.scm 891 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1790), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 891 */
obj_t BgL_auxz00_5136;
{ /* ./Ieee/number.scm 891 */
obj_t BgL_aux5796z00_2542;
BgL_aux5796z00_2542 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29607))); 
if(
CHARP(BgL_aux5796z00_2542))
{ /* ./Ieee/number.scm 891 */
BgL_auxz00_5136 = BgL_aux5796z00_2542
; }  else 
{ /* ./Ieee/number.scm 891 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5796z00_2542, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29607))); 
exit( -1 );} } 
BgL_res2511z00_1797 = 
(unsigned char)CCHAR(BgL_auxz00_5136); } } } } 
BgL_arg1865z00_695 = BgL_res2511z00_1797; } 
BgL_test1858z00_693 = 
(BgL_arg1865z00_695==((unsigned char)'-')); } 
if(BgL_test1858z00_693)
{ /* ./Ieee/number.scm 891 */
BgL_test1856z00_692 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 892 */
unsigned char BgL_arg1861z00_694;
{ /* ./Ieee/number.scm 892 */
unsigned char BgL_res2512z00_1808;
{ /* ./Ieee/number.scm 892 */
obj_t BgL_stringz00_1800;int BgL_kz00_1801;
if(
STRINGP(BgL_xz00_673))
{ /* ./Ieee/number.scm 892 */
BgL_stringz00_1800 = BgL_xz00_673; }  else 
{ /* ./Ieee/number.scm 892 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_673, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29643))); 
exit( -1 );} 
BgL_kz00_1801 = 
(int)(BgL_iz00_676); 
{ /* ./Ieee/number.scm 892 */
bool_t BgL_testz00_5153;
{ /* ./Ieee/number.scm 892 */
int BgL_auxz00_5154;
BgL_auxz00_5154 = 
STRING_LENGTH(BgL_stringz00_1800); 
BgL_testz00_5153 = 
BOUND_CHECK(BgL_kz00_1801, BgL_auxz00_5154); } 
if(BgL_testz00_5153)
{ /* ./Ieee/number.scm 892 */
BgL_res2512z00_1808 = 
STRING_REF(BgL_stringz00_1800, BgL_kz00_1801); }  else 
{ /* ./Ieee/number.scm 892 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1801), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 892 */
obj_t BgL_auxz00_5160;
{ /* ./Ieee/number.scm 892 */
obj_t BgL_aux5826z00_2546;
BgL_aux5826z00_2546 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29643))); 
if(
CHARP(BgL_aux5826z00_2546))
{ /* ./Ieee/number.scm 892 */
BgL_auxz00_5160 = BgL_aux5826z00_2546
; }  else 
{ /* ./Ieee/number.scm 892 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5826z00_2546, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29643))); 
exit( -1 );} } 
BgL_res2512z00_1808 = 
(unsigned char)CCHAR(BgL_auxz00_5160); } } } } 
BgL_arg1861z00_694 = BgL_res2512z00_1808; } 
BgL_test1856z00_692 = 
(BgL_arg1861z00_694==((unsigned char)'+')); } } 
if(BgL_test1856z00_692)
{ /* ./Ieee/number.scm 891 */
BgL_testz00_4816 = 
(BgL_iz00_676==((long)0)); }  else 
{ /* ./Ieee/number.scm 891 */
BgL_testz00_4816 = ((bool_t)0); } } } } } } } } } 
if(BgL_testz00_4816)
{ /* ./Ieee/number.scm 939 */
{ /* ./Ieee/number.scm 940 */
obj_t BgL_list1714z00_623;
BgL_list1714z00_623 = 
MAKE_PAIR(BgL_rxz00_620, BNIL); 
{ /* ./Ieee/number.scm 940 */
long BgL_auxz00_5173;
{ /* ./Ieee/number.scm 940 */
obj_t BgL_auxz00_5174;
if(
STRINGP(BgL_xz00_79))
{ /* ./Ieee/number.scm 940 */
BgL_auxz00_5174 = BgL_xz00_79
; }  else 
{ /* ./Ieee/number.scm 940 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_79, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30692))); 
exit( -1 );} 
BgL_auxz00_5173 = 
BGl_stringzd2ze3integerz31zz__r4_numbers_6_5_fixnumz00(BgL_auxz00_5174, BgL_list1714z00_623); } 
BgL_aux2721z00_1972 = 
BINT(BgL_auxz00_5173); } } }  else 
{ /* ./Ieee/number.scm 941 */
bool_t BgL_testz00_5182;
BgL_xz00_641 = BgL_xz00_79; 
{ /* ./Ieee/number.scm 896 */
int BgL_lenz00_643;
{ /* ./Ieee/number.scm 896 */
obj_t BgL_stringz00_1560;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 896 */
BgL_stringz00_1560 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 896 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29745))); 
exit( -1 );} 
BgL_lenz00_643 = 
STRING_LENGTH(BgL_stringz00_1560); } 
{ 
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_5189;
{ /* ./Ieee/number.scm 900 */
long BgL_auxz00_5190;
BgL_auxz00_5190 = 
(long)(BgL_lenz00_643); 
BgL_testz00_5189 = 
(BgL_iz00_644==BgL_auxz00_5190); } 
if(BgL_testz00_5189)
{ /* ./Ieee/number.scm 900 */
BgL_testz00_5182 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 902 */
bool_t BgL_test1756z00_649;
{ /* ./Ieee/number.scm 902 */
bool_t BgL_test1807z00_670;
{ /* ./Ieee/number.scm 902 */
unsigned char BgL_arg1813z00_672;
{ /* ./Ieee/number.scm 902 */
unsigned char BgL_res2494z00_1571;
{ /* ./Ieee/number.scm 902 */
obj_t BgL_stringz00_1563;int BgL_kz00_1564;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 902 */
BgL_stringz00_1563 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 902 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29862))); 
exit( -1 );} 
BgL_kz00_1564 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 902 */
bool_t BgL_testz00_5199;
{ /* ./Ieee/number.scm 902 */
int BgL_auxz00_5200;
BgL_auxz00_5200 = 
STRING_LENGTH(BgL_stringz00_1563); 
BgL_testz00_5199 = 
BOUND_CHECK(BgL_kz00_1564, BgL_auxz00_5200); } 
if(BgL_testz00_5199)
{ /* ./Ieee/number.scm 902 */
BgL_res2494z00_1571 = 
STRING_REF(BgL_stringz00_1563, BgL_kz00_1564); }  else 
{ /* ./Ieee/number.scm 902 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1564), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 902 */
obj_t BgL_auxz00_5206;
{ /* ./Ieee/number.scm 902 */
obj_t BgL_aux5231z00_2464;
BgL_aux5231z00_2464 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29862))); 
if(
CHARP(BgL_aux5231z00_2464))
{ /* ./Ieee/number.scm 902 */
BgL_auxz00_5206 = BgL_aux5231z00_2464
; }  else 
{ /* ./Ieee/number.scm 902 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5231z00_2464, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29862))); 
exit( -1 );} } 
BgL_res2494z00_1571 = 
(unsigned char)CCHAR(BgL_auxz00_5206); } } } } 
BgL_arg1813z00_672 = BgL_res2494z00_1571; } 
BgL_test1807z00_670 = 
(BgL_arg1813z00_672>=((unsigned char)'0')); } 
if(BgL_test1807z00_670)
{ /* ./Ieee/number.scm 903 */
unsigned char BgL_arg1809z00_671;
{ /* ./Ieee/number.scm 903 */
unsigned char BgL_res2495z00_1582;
{ /* ./Ieee/number.scm 903 */
obj_t BgL_stringz00_1574;int BgL_kz00_1575;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 903 */
BgL_stringz00_1574 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 903 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29896))); 
exit( -1 );} 
BgL_kz00_1575 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 903 */
bool_t BgL_testz00_5223;
{ /* ./Ieee/number.scm 903 */
int BgL_auxz00_5224;
BgL_auxz00_5224 = 
STRING_LENGTH(BgL_stringz00_1574); 
BgL_testz00_5223 = 
BOUND_CHECK(BgL_kz00_1575, BgL_auxz00_5224); } 
if(BgL_testz00_5223)
{ /* ./Ieee/number.scm 903 */
BgL_res2495z00_1582 = 
STRING_REF(BgL_stringz00_1574, BgL_kz00_1575); }  else 
{ /* ./Ieee/number.scm 903 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1575), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 903 */
obj_t BgL_auxz00_5230;
{ /* ./Ieee/number.scm 903 */
obj_t BgL_aux5261z00_2468;
BgL_aux5261z00_2468 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29896))); 
if(
CHARP(BgL_aux5261z00_2468))
{ /* ./Ieee/number.scm 903 */
BgL_auxz00_5230 = BgL_aux5261z00_2468
; }  else 
{ /* ./Ieee/number.scm 903 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5261z00_2468, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29896))); 
exit( -1 );} } 
BgL_res2495z00_1582 = 
(unsigned char)CCHAR(BgL_auxz00_5230); } } } } 
BgL_arg1809z00_671 = BgL_res2495z00_1582; } 
BgL_test1756z00_649 = 
(BgL_arg1809z00_671<=((unsigned char)'9')); }  else 
{ /* ./Ieee/number.scm 902 */
BgL_test1756z00_649 = ((bool_t)0); } } 
if(BgL_test1756z00_649)
{ /* ./Ieee/number.scm 902 */
{ 
long BgL_pz00_5243;long BgL_iz00_5241;
BgL_iz00_5241 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_5243 = ((long)0); 
BgL_pz00_646 = BgL_pz00_5243; 
BgL_iz00_644 = BgL_iz00_5241; 
goto BgL_loopz00_647;} }  else 
{ /* ./Ieee/number.scm 907 */
bool_t BgL_test1762z00_652;
{ /* ./Ieee/number.scm 907 */
unsigned char BgL_arg1804z00_669;
{ /* ./Ieee/number.scm 907 */
unsigned char BgL_res2496z00_1595;
{ /* ./Ieee/number.scm 907 */
obj_t BgL_stringz00_1587;int BgL_kz00_1588;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 907 */
BgL_stringz00_1587 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 907 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29967))); 
exit( -1 );} 
BgL_kz00_1588 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 907 */
bool_t BgL_testz00_5250;
{ /* ./Ieee/number.scm 907 */
int BgL_auxz00_5251;
BgL_auxz00_5251 = 
STRING_LENGTH(BgL_stringz00_1587); 
BgL_testz00_5250 = 
BOUND_CHECK(BgL_kz00_1588, BgL_auxz00_5251); } 
if(BgL_testz00_5250)
{ /* ./Ieee/number.scm 907 */
BgL_res2496z00_1595 = 
STRING_REF(BgL_stringz00_1587, BgL_kz00_1588); }  else 
{ /* ./Ieee/number.scm 907 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1588), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 907 */
obj_t BgL_auxz00_5257;
{ /* ./Ieee/number.scm 907 */
obj_t BgL_aux5291z00_2472;
BgL_aux5291z00_2472 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29967))); 
if(
CHARP(BgL_aux5291z00_2472))
{ /* ./Ieee/number.scm 907 */
BgL_auxz00_5257 = BgL_aux5291z00_2472
; }  else 
{ /* ./Ieee/number.scm 907 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5291z00_2472, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)29967))); 
exit( -1 );} } 
BgL_res2496z00_1595 = 
(unsigned char)CCHAR(BgL_auxz00_5257); } } } } 
BgL_arg1804z00_669 = BgL_res2496z00_1595; } 
BgL_test1762z00_652 = 
(BgL_arg1804z00_669==((unsigned char)'.')); } 
if(BgL_test1762z00_652)
{ /* ./Ieee/number.scm 907 */
{ 
long BgL_pz00_5270;long BgL_iz00_5268;
BgL_iz00_5268 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_5270 = ((long)0); 
BgL_pz00_646 = BgL_pz00_5270; 
BgL_iz00_644 = BgL_iz00_5268; 
goto BgL_loopz00_647;} }  else 
{ /* ./Ieee/number.scm 911 */
bool_t BgL_test1770z00_655;
{ /* ./Ieee/number.scm 911 */
bool_t BgL_test1794z00_666;
{ /* ./Ieee/number.scm 911 */
unsigned char BgL_arg1800z00_668;
{ /* ./Ieee/number.scm 911 */
unsigned char BgL_res2497z00_1608;
{ /* ./Ieee/number.scm 911 */
obj_t BgL_stringz00_1600;int BgL_kz00_1601;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 911 */
BgL_stringz00_1600 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 911 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30041))); 
exit( -1 );} 
BgL_kz00_1601 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 911 */
bool_t BgL_testz00_5277;
{ /* ./Ieee/number.scm 911 */
int BgL_auxz00_5278;
BgL_auxz00_5278 = 
STRING_LENGTH(BgL_stringz00_1600); 
BgL_testz00_5277 = 
BOUND_CHECK(BgL_kz00_1601, BgL_auxz00_5278); } 
if(BgL_testz00_5277)
{ /* ./Ieee/number.scm 911 */
BgL_res2497z00_1608 = 
STRING_REF(BgL_stringz00_1600, BgL_kz00_1601); }  else 
{ /* ./Ieee/number.scm 911 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1601), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 911 */
obj_t BgL_auxz00_5284;
{ /* ./Ieee/number.scm 911 */
obj_t BgL_aux5321z00_2476;
BgL_aux5321z00_2476 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30041))); 
if(
CHARP(BgL_aux5321z00_2476))
{ /* ./Ieee/number.scm 911 */
BgL_auxz00_5284 = BgL_aux5321z00_2476
; }  else 
{ /* ./Ieee/number.scm 911 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5321z00_2476, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30041))); 
exit( -1 );} } 
BgL_res2497z00_1608 = 
(unsigned char)CCHAR(BgL_auxz00_5284); } } } } 
BgL_arg1800z00_668 = BgL_res2497z00_1608; } 
BgL_test1794z00_666 = 
(BgL_arg1800z00_668==((unsigned char)'e')); } 
if(BgL_test1794z00_666)
{ /* ./Ieee/number.scm 911 */
BgL_test1770z00_655 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 912 */
unsigned char BgL_arg1796z00_667;
{ /* ./Ieee/number.scm 912 */
unsigned char BgL_res2498z00_1619;
{ /* ./Ieee/number.scm 912 */
obj_t BgL_stringz00_1611;int BgL_kz00_1612;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 912 */
BgL_stringz00_1611 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 912 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30080))); 
exit( -1 );} 
BgL_kz00_1612 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 912 */
bool_t BgL_testz00_5301;
{ /* ./Ieee/number.scm 912 */
int BgL_auxz00_5302;
BgL_auxz00_5302 = 
STRING_LENGTH(BgL_stringz00_1611); 
BgL_testz00_5301 = 
BOUND_CHECK(BgL_kz00_1612, BgL_auxz00_5302); } 
if(BgL_testz00_5301)
{ /* ./Ieee/number.scm 912 */
BgL_res2498z00_1619 = 
STRING_REF(BgL_stringz00_1611, BgL_kz00_1612); }  else 
{ /* ./Ieee/number.scm 912 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1612), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 912 */
obj_t BgL_auxz00_5308;
{ /* ./Ieee/number.scm 912 */
obj_t BgL_aux5351z00_2480;
BgL_aux5351z00_2480 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30080))); 
if(
CHARP(BgL_aux5351z00_2480))
{ /* ./Ieee/number.scm 912 */
BgL_auxz00_5308 = BgL_aux5351z00_2480
; }  else 
{ /* ./Ieee/number.scm 912 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5351z00_2480, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30080))); 
exit( -1 );} } 
BgL_res2498z00_1619 = 
(unsigned char)CCHAR(BgL_auxz00_5308); } } } } 
BgL_arg1796z00_667 = BgL_res2498z00_1619; } 
BgL_test1770z00_655 = 
(BgL_arg1796z00_667==((unsigned char)'E')); } } 
if(BgL_test1770z00_655)
{ /* ./Ieee/number.scm 911 */
if(BgL_ez00_645)
{ /* ./Ieee/number.scm 913 */
BgL_testz00_5182 = ((bool_t)0)
; }  else 
{ 
long BgL_pz00_5323;bool_t BgL_ez00_5322;long BgL_iz00_5320;
BgL_iz00_5320 = 
(BgL_iz00_644+((long)1)); 
BgL_ez00_5322 = ((bool_t)1); 
BgL_pz00_5323 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_646 = BgL_pz00_5323; 
BgL_ez00_645 = BgL_ez00_5322; 
BgL_iz00_644 = BgL_iz00_5320; 
goto BgL_loopz00_647;} }  else 
{ /* ./Ieee/number.scm 918 */
bool_t BgL_test1777z00_658;
{ /* ./Ieee/number.scm 918 */
bool_t BgL_test1785z00_663;
{ /* ./Ieee/number.scm 918 */
unsigned char BgL_arg1791z00_665;
{ /* ./Ieee/number.scm 918 */
unsigned char BgL_res2499z00_1634;
{ /* ./Ieee/number.scm 918 */
obj_t BgL_stringz00_1626;int BgL_kz00_1627;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 918 */
BgL_stringz00_1626 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 918 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30200))); 
exit( -1 );} 
BgL_kz00_1627 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 918 */
bool_t BgL_testz00_5331;
{ /* ./Ieee/number.scm 918 */
int BgL_auxz00_5332;
BgL_auxz00_5332 = 
STRING_LENGTH(BgL_stringz00_1626); 
BgL_testz00_5331 = 
BOUND_CHECK(BgL_kz00_1627, BgL_auxz00_5332); } 
if(BgL_testz00_5331)
{ /* ./Ieee/number.scm 918 */
BgL_res2499z00_1634 = 
STRING_REF(BgL_stringz00_1626, BgL_kz00_1627); }  else 
{ /* ./Ieee/number.scm 918 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1627), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 918 */
obj_t BgL_auxz00_5338;
{ /* ./Ieee/number.scm 918 */
obj_t BgL_aux5381z00_2484;
BgL_aux5381z00_2484 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30200))); 
if(
CHARP(BgL_aux5381z00_2484))
{ /* ./Ieee/number.scm 918 */
BgL_auxz00_5338 = BgL_aux5381z00_2484
; }  else 
{ /* ./Ieee/number.scm 918 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5381z00_2484, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30200))); 
exit( -1 );} } 
BgL_res2499z00_1634 = 
(unsigned char)CCHAR(BgL_auxz00_5338); } } } } 
BgL_arg1791z00_665 = BgL_res2499z00_1634; } 
BgL_test1785z00_663 = 
(BgL_arg1791z00_665==((unsigned char)'-')); } 
if(BgL_test1785z00_663)
{ /* ./Ieee/number.scm 918 */
BgL_test1777z00_658 = ((bool_t)1); }  else 
{ /* ./Ieee/number.scm 919 */
unsigned char BgL_arg1787z00_664;
{ /* ./Ieee/number.scm 919 */
unsigned char BgL_res2500z00_1645;
{ /* ./Ieee/number.scm 919 */
obj_t BgL_stringz00_1637;int BgL_kz00_1638;
if(
STRINGP(BgL_xz00_641))
{ /* ./Ieee/number.scm 919 */
BgL_stringz00_1637 = BgL_xz00_641; }  else 
{ /* ./Ieee/number.scm 919 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6050z00zz__r4_numbers_6_5z00, BgL_xz00_641, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30239))); 
exit( -1 );} 
BgL_kz00_1638 = 
(int)(BgL_iz00_644); 
{ /* ./Ieee/number.scm 919 */
bool_t BgL_testz00_5355;
{ /* ./Ieee/number.scm 919 */
int BgL_auxz00_5356;
BgL_auxz00_5356 = 
STRING_LENGTH(BgL_stringz00_1637); 
BgL_testz00_5355 = 
BOUND_CHECK(BgL_kz00_1638, BgL_auxz00_5356); } 
if(BgL_testz00_5355)
{ /* ./Ieee/number.scm 919 */
BgL_res2500z00_1645 = 
STRING_REF(BgL_stringz00_1637, BgL_kz00_1638); }  else 
{ /* ./Ieee/number.scm 919 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6051z00zz__r4_numbers_6_5z00, BGl_string6052z00zz__r4_numbers_6_5z00, 
BINT(BgL_kz00_1638), "./Ieee/string.scm", ((long)10560)); 
{ /* ./Ieee/number.scm 919 */
obj_t BgL_auxz00_5362;
{ /* ./Ieee/number.scm 919 */
obj_t BgL_aux5411z00_2488;
BgL_aux5411z00_2488 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30239))); 
if(
CHARP(BgL_aux5411z00_2488))
{ /* ./Ieee/number.scm 919 */
BgL_auxz00_5362 = BgL_aux5411z00_2488
; }  else 
{ /* ./Ieee/number.scm 919 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6053z00zz__r4_numbers_6_5z00, BgL_aux5411z00_2488, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30239))); 
exit( -1 );} } 
BgL_res2500z00_1645 = 
(unsigned char)CCHAR(BgL_auxz00_5362); } } } } 
BgL_arg1787z00_664 = BgL_res2500z00_1645; } 
BgL_test1777z00_658 = 
(BgL_arg1787z00_664==((unsigned char)'+')); } } 
if(BgL_test1777z00_658)
{ /* ./Ieee/number.scm 918 */
{ /* ./Ieee/number.scm 920 */
bool_t BgL__andtest_1008z00_659;
{ /* ./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__andtest_1008z00_659 = BgL__ortest_1009z00_662; }  else 
{ /* ./Ieee/number.scm 920 */
BgL__andtest_1008z00_659 = 
(BgL_iz00_644==BgL_pz00_646); } } 
if(BgL__andtest_1008z00_659)
{ 
long BgL_pz00_5379;long BgL_iz00_5377;
BgL_iz00_5377 = 
(BgL_iz00_644+((long)1)); 
BgL_pz00_5379 = ((long)0); 
BgL_pz00_646 = BgL_pz00_5379; 
BgL_iz00_644 = BgL_iz00_5377; 
goto BgL_loopz00_647;}  else 
{ /* ./Ieee/number.scm 920 */
BgL_testz00_5182 = ((bool_t)0)
; } } }  else 
{ /* ./Ieee/number.scm 918 */
BgL_testz00_5182 = ((bool_t)0); } } } } } } } } 
if(BgL_testz00_5182)
{ /* ./Ieee/number.scm 941 */
{ /* ./Ieee/number.scm 942 */
bool_t BgL_test1717z00_625;
{ /* ./Ieee/number.scm 942 */
long BgL_n1z00_1554;
{ /* ./Ieee/number.scm 942 */
obj_t BgL_auxz00_5380;
if(
INTEGERP(BgL_rxz00_620))
{ /* ./Ieee/number.scm 942 */
BgL_auxz00_5380 = BgL_rxz00_620
; }  else 
{ /* ./Ieee/number.scm 942 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string5959z00zz__r4_numbers_6_5z00, BgL_rxz00_620, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30749))); 
exit( -1 );} 
BgL_n1z00_1554 = 
(long)CINT(BgL_auxz00_5380); } 
BgL_test1717z00_625 = 
(BgL_n1z00_1554==((long)10)); } 
if(BgL_test1717z00_625)
{ /* ./Ieee/number.scm 943 */
char * BgL_stringz00_1556;
{ /* ./Ieee/number.scm 943 */
obj_t BgL_auxz00_5389;
if(
STRINGP(BgL_xz00_79))
{ /* ./Ieee/number.scm 943 */
BgL_auxz00_5389 = BgL_xz00_79
; }  else 
{ /* ./Ieee/number.scm 943 */
BGl_bigloozd2typezd2errorzf2locationzf2zz__errorz00(BGl_symbol6049z00zz__r4_numbers_6_5z00, BGl_string6048z00zz__r4_numbers_6_5z00, BgL_xz00_79, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30776))); 
exit( -1 );} 
BgL_stringz00_1556 = 
BSTRING_TO_STRING(BgL_auxz00_5389); } 
{ /* ./Ieee/number.scm 943 */
double BgL_auxz00_5396;
BgL_auxz00_5396 = 
strtod(BgL_stringz00_1556, ((long)0)); 
BgL_aux2721z00_1972 = 
DOUBLE_TO_REAL(BgL_auxz00_5396); } }  else 
{ /* ./Ieee/number.scm 942 */
BGl_errorzf2czd2locationz20zz__errorz00(BGl_string6054z00zz__r4_numbers_6_5z00, BGl_string6057z00zz__r4_numbers_6_5z00, BgL_rxz00_620, "./Ieee/number.scm", ((long)30786)); 
BgL_aux2721z00_1972 = 
BGl_debugzd2errorzf2locationz20zz__errorz00(BFALSE, BFALSE, BFALSE, BGl_string5956z00zz__r4_numbers_6_5z00, 
BINT(((long)30868))); } } }  else 
{ /* ./Ieee/number.scm 941 */
BgL_aux2721z00_1972 = BFALSE; } } } } } } 
POP_TRACE(); 
return BgL_aux2721z00_1972;} } } } 
}



/* _string->number */
obj_t BGl__stringzd2ze3numberz31zz__r4_numbers_6_5z00(obj_t BgL_envz00_2105, obj_t BgL_xz00_2106, obj_t BgL_radixz00_2107)
{ AN_OBJECT;
{ /* ./Ieee/number.scm 866 */
return 
BGl_stringzd2ze3numberz31zz__r4_numbers_6_5z00(BgL_xz00_2106, BgL_radixz00_2107);} 
}



/* imported-modules-init */
obj_t BGl_importedzd2moduleszd2initz00zz__r4_numbers_6_5z00()
{ AN_OBJECT;
{ /* ./Ieee/number.scm 18 */
{ /* ./Ieee/number.scm 18 */
obj_t BgL_symbol2726z00_1973;
BgL_symbol2726z00_1973 = BGl_symbol6058z00zz__r4_numbers_6_5z00; 
{ /* ./Ieee/number.scm 18 */

PUSH_TRACE(BgL_symbol2726z00_1973); BUNSPEC; 
{ /* ./Ieee/number.scm 18 */
obj_t BgL_aux2725z00_1974;
BgL_aux2725z00_1974 = 
BGl_modulezd2initializa7ationz75zz__errorz00(((long)11084), "__r4_numbers_6_5"); 
POP_TRACE(); 
return BgL_aux2725z00_1974;} } } } 
}

