# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1190765506 0
# Node ID 5b112f6186e3018d4db8593907644f02d8ae3242
# Parent  84fe291aadf6c45669a7f22bc04b285d659277bf
(disassemble-1): Use `mapc' rather than `mapcar'.

diff -r 84fe291aadf6 -r 5b112f6186e3 lisp/emacs-lisp/disass.el
--- a/lisp/emacs-lisp/disass.el	Wed Sep 26 00:11:21 2007 +0000
+++ b/lisp/emacs-lisp/disass.el	Wed Sep 26 00:11:46 2007 +0000
@@ -250,7 +250,7 @@
 			 (+ indent disassemble-recursive-indent)))
 		       ((eq (car-safe (car-safe arg)) 'byte-code)
 			(insert "(<byte code>...)\n")
-			(mapcar ;recurse on list of byte-code objects
+			(mapc ;recurse on list of byte-code objects
 			 '(lambda (obj)
 			    (disassemble-1
 			     obj