diff --git a/src/ikarus.boot b/src/ikarus.boot index 3459c57..b541c63 100644 Binary files a/src/ikarus.boot and b/src/ikarus.boot differ diff --git a/src/ikarus.numerics.ss b/src/ikarus.numerics.ss index 5f4cd76..5ee3b1e 100644 --- a/src/ikarus.numerics.ss +++ b/src/ikarus.numerics.ss @@ -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) diff --git a/src/makefile.ss b/src/makefile.ss index ac6fd2c..98ac35c 100755 --- a/src/makefile.ss +++ b/src/makefile.ss @@ -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]