* exported even?

This commit is contained in:
Abdulaziz Ghuloum 2007-06-13 13:01:21 +03:00
parent 6441235594
commit 9b0d2143a3
3 changed files with 3 additions and 2 deletions

Binary file not shown.

View File

@ -98,7 +98,7 @@
(library (ikarus generic-arithmetic)
(export + - * / zero? = < <= > >= add1 sub1 quotient remainder
modulo
modulo even?
positive? expt gcd lcm numerator denominator exact-integer-sqrt
quotient+remainder number->string string->number min max
exact->inexact floor ceiling round log fl=? fl<? fl<=? fl>?
@ -112,7 +112,7 @@
(ikarus system $strings)
(only (ikarus flonums) $flonum->exact)
(except (ikarus) + - * / zero? = < <= > >= add1 sub1 quotient
remainder modulo quotient+remainder number->string positive?
remainder modulo even? quotient+remainder number->string positive?
string->number expt gcd lcm numerator denominator
exact->inexact floor ceiling round log
exact-integer-sqrt min max

View File

@ -397,6 +397,7 @@
[rational? i r]
[flonum? i]
[positive? i r]
[even? i r]
[quotient i r]
[modulo i r]
[remainder i r]