From e53230c439a49e7fbe7c37a2c4adb8d6d1189509 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Thu, 1 Nov 2012 20:33:37 +0900 Subject: [PATCH] odd? should check absolute value of remainder --- lib/init-7.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))