diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-10 01:50:22 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-10 01:50:22 -0400 |
| commit | 26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b (patch) | |
| tree | 1009712ed76be8785abbfa2cfb6ddc9359b46ced /lisp/play/hanoi.el | |
| parent | 519489089197ce2d41c72e20773438d415ce8564 (diff) | |
| download | emacs-26f8a384978c6b1d1db1c6b091fa1e51d9ff5a5b.tar.gz | |
cl-lib.el: Partial revert of "2015-04-05 Rationalize c[ad]+r"
* lisp/emacs-lisp/cl-lib.el: Partial revert of "2015-04-05 Rationalize
use of c[ad]+r", so as to keep the "cl-" prefix on all
cl-lib definitions.
Diffstat (limited to 'lisp/play/hanoi.el')
| -rw-r--r-- | lisp/play/hanoi.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/play/hanoi.el b/lisp/play/hanoi.el index d2734450593..635e4a95bc3 100644 --- a/lisp/play/hanoi.el +++ b/lisp/play/hanoi.el @@ -277,7 +277,7 @@ BITS must be of length nrings. Start at START-TIME." ;; Disable display of line and column numbers, for speed. (line-number-mode nil) (column-number-mode nil)) ;; do it! - (hanoi-n bits rings (car poles) (cadr poles) (caddr poles) + (hanoi-n bits rings (nth 0 poles) (nth 1 poles) (nth 2 poles) start-time)) (message "Done")) (setq buffer-read-only t) |