[bugfix] even? and odd? broken

2014-09-09 01:31:25 +09:00 · 2014-09-09 01:31:25 +09:00 · df18df8868
parent 9ab446ab92
commit df18df8868
1 changed files with 1 additions and 1 deletions
--- a/piclib/scheme/base.scm
+++ b/piclib/scheme/base.scm
@ -191,7 +191,7 @@
    (< x 0))

  (define (even? x)
-    (= x (* (/ x 2) 2)))
+    (= x (* (exact (floor (/ x 2))) 2)))

  (define (odd? x)
    (not (even? x)))