conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* exported odd?

This commit is contained in:
Abdulaziz Ghuloum 2007-06-13 13:10:54 +03:00
parent 9b0d2143a3
commit 2dad5b473e
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/ikarus.numerics.ss
View File

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

1
src/makefile.ss
View File

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