* exported odd?

src/ikarus.numerics.ss

@@ -98,7 +98,7 @@
 
 (library (ikarus generic-arithmetic)
   (export + - * / zero? = < <= > >= add1 sub1 quotient remainder
-          modulo even?
+          modulo even? odd?
           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 even? quotient+remainder number->string positive?
+            remainder modulo even? odd? quotient+remainder number->string positive?
             string->number expt gcd lcm numerator denominator
             exact->inexact floor ceiling round log
             exact-integer-sqrt min max
@@ -1750,9 +1750,6 @@
     (only (ikarus flonums) flonum-parts)
     (except (ikarus) flonum->string string->flonum ))
   
-  (define (even? n) 
-    (= (remainder n 2) 0))
-  
   (module (flonum->string)
     (module (flonum->digits)
       (define flonum->digits

src/makefile.ss

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