* reinstalled exact->inexact

This commit is contained in:
Abdulaziz Ghuloum 2007-06-08 09:10:18 +03:00
parent cd788e4bed
commit 9c458d4ba7
3 changed files with 5 additions and 2 deletions

Binary file not shown.

View File

@ -29,7 +29,8 @@
(library (ikarus generic-arithmetic)
(export + - * / zero? = < <= > >= add1 sub1 quotient remainder
positive? expt gcd lcm numerator denominator exact-integer-sqrt
quotient+remainder number->string string->number max)
quotient+remainder number->string string->number max
exact->inexact)
(import
(ikarus system $fx)
(ikarus system $ratnums)
@ -39,6 +40,7 @@
(except (ikarus) + - * / zero? = < <= > >= add1 sub1 quotient
remainder quotient+remainder number->string positive?
string->number expt gcd lcm numerator denominator
exact->inexact
exact-integer-sqrt max))
(define (fixnum->flonum x)

View File

@ -396,6 +396,7 @@
[numerator i r]
[denominator i r]
[exact-integer-sqrt i r]
[exact->inexact i r]
[symbol? i r symbols]
[gensym? i symbols]
[gensym i symbols]
@ -560,7 +561,7 @@
[$bytevector-u8-ref $bytes]
[$bytevector-set! $bytes]
; [$flonum-u8-ref $flonums]
[$flonum-u8-ref $flonums]
[$make-bignum $bignums]
[$bignum-positive? $bignums]