* reinstalled exact->inexact
This commit is contained in:
parent
cd788e4bed
commit
9c458d4ba7
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -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)
|
||||
|
|
|
@ -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]
|
||||
|
|
Loading…
Reference in New Issue