diff --git a/lib/init-7.scm b/lib/init-7.scm index d2d50515..8be939f3 100644 --- a/lib/init-7.scm +++ b/lib/init-7.scm @@ -1040,7 +1040,7 @@ (define (positive? x) (> x 0)) (define (negative? x) (< x 0)) (define (even? n) (= (remainder n 2) 0)) -(define (odd? n) (= (remainder n 2) 1)) +(define (odd? n) (= (abs (remainder n 2)) 1)) (define (abs x) (if (< x 0) (- x) x))