(tempo-dolist): Don't use `cadr'.

diff --git a/lisp/tempo.el b/lisp/tempo.el
index ce712aa1382b905c1115be7f87e95db2277c3963..642a3cca1dadda4c02c417d9249610d99453f83a 100644 (file)
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -5,7 +5,7 @@
 ;; Created: 16 Feb 1994
 ;; Version: 1.2.1
 ;; Keywords: extensions, languages, tools
-;; $Revision: 1.29 $
+;; $Revision: 1.5 $
 
 ;; This file is part of GNU Emacs.
 
@@ -211,9 +211,9 @@ it recognizes the argument, and NIL otherwise")
        (l (car (cdr il))))
     (list 'tempo-mapc
          (list 'function (append (list 'lambda
-                                       (list (car il)))
+                                       (list i))
                                  forms))
-         (cadr il))))
+         l)))
 (put 'tempo-dolist 'lisp-indent-function 1)
 
 ;;