Changeset 13562 in project for chicken/trunk/library.scm
 Timestamp:
 03/07/09 17:08:16 (11 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

chicken/trunk/library.scm
r13304 r13562 41 41 #include <errno.h> 42 42 #include <time.h> 43 #include <float.h> 43 44 44 45 #ifdef HAVE_SYSEXITS_H … … 733 734 ;;; Numeric routines: 734 735 736 (define mostpositivefixnum (foreignvalue "C_MOST_POSITIVE_FIXNUM" int)) 737 (define mostnegativefixnum (foreignvalue "C_MOST_NEGATIVE_FIXNUM" int)) 738 (define fixnumbits (foreignvalue "(C_WORD_SIZE  1)" int)) 739 (define fixnumprecision (foreignvalue "(C_WORD_SIZE  (1 + 1))" int)) 740 735 741 (define (fixnum? x) (##core#inline "C_fixnump" x)) 736 742 (define (fx+ x y) (##core#inline "C_fixnum_plus" x y)) … … 769 775 (fxcheckdivisonbyzero x y 'fxmod) 770 776 (##core#inline "C_fixnum_modulo" x y) ] ) ) 777 778 (define maximumflonum (foreignvalue "DBL_MAX" double)) 779 (define minimumflonum (foreignvalue "DBL_MIN" double)) 780 (define flonumradix (foreignvalue "FLT_RADIX" int)) 781 (define flonumepsilon (foreignvalue "DBL_EPSILON" double)) 782 (define flonumprecision (foreignvalue "DBL_MANT_DIG" int)) 783 (define flonumdecimalprecision (foreignvalue "DBL_DIG" int)) 784 (define flonummaximumexponent (foreignvalue "DBL_MAX_EXP" int)) 785 (define flonumminimumexponent (foreignvalue "DBL_MIN_EXP" int)) 786 (define flonummaximumdecimalexponent (foreignvalue "DBL_MAX_10_EXP" int)) 787 (define flonumminimumdecimalexponent (foreignvalue "DBL_MIN_10_EXP" int)) 771 788 772 789 (define (flonum? x) (##core#inline "C_i_flonump" x))
Note: See TracChangeset
for help on using the changeset viewer.