* 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)
|
(library (ikarus generic-arithmetic)
|
||||||
(export + - * / zero? = < <= > >= add1 sub1 quotient remainder
|
(export + - * / zero? = < <= > >= add1 sub1 quotient remainder
|
||||||
positive? expt gcd lcm numerator denominator exact-integer-sqrt
|
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
|
(import
|
||||||
(ikarus system $fx)
|
(ikarus system $fx)
|
||||||
(ikarus system $ratnums)
|
(ikarus system $ratnums)
|
||||||
|
@ -39,6 +40,7 @@
|
||||||
(except (ikarus) + - * / zero? = < <= > >= add1 sub1 quotient
|
(except (ikarus) + - * / zero? = < <= > >= add1 sub1 quotient
|
||||||
remainder quotient+remainder number->string positive?
|
remainder quotient+remainder number->string positive?
|
||||||
string->number expt gcd lcm numerator denominator
|
string->number expt gcd lcm numerator denominator
|
||||||
|
exact->inexact
|
||||||
exact-integer-sqrt max))
|
exact-integer-sqrt max))
|
||||||
|
|
||||||
(define (fixnum->flonum x)
|
(define (fixnum->flonum x)
|
||||||
|
|
|
@ -396,6 +396,7 @@
|
||||||
[numerator i r]
|
[numerator i r]
|
||||||
[denominator i r]
|
[denominator i r]
|
||||||
[exact-integer-sqrt i r]
|
[exact-integer-sqrt i r]
|
||||||
|
[exact->inexact i r]
|
||||||
[symbol? i r symbols]
|
[symbol? i r symbols]
|
||||||
[gensym? i symbols]
|
[gensym? i symbols]
|
||||||
[gensym i symbols]
|
[gensym i symbols]
|
||||||
|
@ -560,7 +561,7 @@
|
||||||
[$bytevector-u8-ref $bytes]
|
[$bytevector-u8-ref $bytes]
|
||||||
[$bytevector-set! $bytes]
|
[$bytevector-set! $bytes]
|
||||||
|
|
||||||
; [$flonum-u8-ref $flonums]
|
[$flonum-u8-ref $flonums]
|
||||||
|
|
||||||
[$make-bignum $bignums]
|
[$make-bignum $bignums]
|
||||||
[$bignum-positive? $bignums]
|
[$bignum-positive? $bignums]
|
||||||
|
|
Loading…
Reference in New Issue