* exported even?
This commit is contained in:
parent
6441235594
commit
9b0d2143a3
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -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
|
||||
|
|
|
@ -397,6 +397,7 @@
|
|||
[rational? i r]
|
||||
[flonum? i]
|
||||
[positive? i r]
|
||||
[even? i r]
|
||||
[quotient i r]
|
||||
[modulo i r]
|
||||
[remainder i r]
|
||||
|
|
Loading…
Reference in New Issue