(hanoi-internal): Don't use oddp.

diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el
index 15b34e3687396a2e211e0231204f6342d3e58b0b..8b98f067be96afbaa462cf8c3fdaa840497efd88 100644 (file)
--- a/lisp/play/hanoi.el
+++ b/lisp/play/hanoi.el
@@ -268,7 +268,8 @@ BITS must be of length nrings.  Start at START-TIME."
                                  (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.