# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 952800458 0
# Node ID d28d789a8521367ed7d1727624a11e8c71f4af46
# Parent  5627c03551f178df750781caf1dd38199b99ea37
(hanoi-internal): Don't use oddp.

diff -r 5627c03551f1 -r d28d789a8521 lisp/play/hanoi.el
--- a/lisp/play/hanoi.el	Sat Mar 11 06:54:21 2000 +0000
+++ b/lisp/play/hanoi.el	Sat Mar 11 18:47:38 2000 +0000
@@ -268,7 +268,8 @@
 				  (make-string (1- radius) (if vert ?\- ?\|))
 				  (if vert ">" "v"))
 		for face =
-		  (if (oddp n) hanoi-odd-ring-face hanoi-even-ring-face)
+		  (if (eq (logand n 1) 1) ; oddp would require cl at runtime
+		      hanoi-odd-ring-face hanoi-even-ring-face)
 		do (hanoi-put-face 0 (length str) face str)
 		collect (cons str diameter)))
 	     ;; Disable display of line and column numbers, for speed.