nnir.el (nnir-categorize): Replace mapcar with mapc.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f2cbd90..6282908 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-12-04  Andrew Cohen  <cohen@andy.bu.edu>
+
+       * nnir.el (nnir-categorize): Replace mapcar with mapc.
+
 2010-12-03  Andrew Cohen  <cohen@andy.bu.edu>
 
        * nnir.el: Rearrange code to allow macros to be autoloaded by

diff --git a/lisp/nnir.el b/lisp/nnir.el
index 7e1bd30..058ed76 100644 (file)
--- a/lisp/nnir.el
+++ b/lisp/nnir.el
@@ -269,7 +269,7 @@ as `(keyfunc member)' and the corresponding element is just
 is `(valuefunc member)'."
   `(unless (null ,sequence)
      (let (value)
-       (mapcar
+       (mapc
        (lambda (member)
          (let ((y (,keyfunc member))
                (x ,(if valuefunc