From: Doug Evans <xdje42@gmail.com>
Date: Sun, 2 Mar 2014 17:17:46 +0000 (-0800)
Subject: guile/lib/gdb/printing.scm (append-pretty-printer!): Fix thinko.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=667f9d0bddf4f0fd32702d7fd67454191a909911;p=binutils-gdb.git

guile/lib/gdb/printing.scm (append-pretty-printer!): Fix thinko.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 43243a6bd8f..08dd1c37690 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2014-03-02  Doug Evans  <xdje42@gmail.com>
+
+	* guile/lib/gdb/printing.scm (append-pretty-printer!): Fix thinko.
+
 2014-03-01  Mark Kettenis  <kettenis@gnu.org>
 
 	* obsd-nat.c: Include "gdb_wait.h" instead of <sys/wait.h>.
diff --git a/gdb/guile/lib/gdb/printing.scm b/gdb/guile/lib/gdb/printing.scm
index 36e32756808..29447025bda 100644
--- a/gdb/guile/lib/gdb/printing.scm
+++ b/gdb/guile/lib/gdb/printing.scm
@@ -47,6 +47,6 @@ If OBJ is #f, add MATCHER to the global list."
 	((objfile? obj)
 	 (set-objfile-pretty-printers! obj
 				       (append! (objfile-pretty-printers obj)
-						matcher)))
+						(list matcher))))
 	(else
 	 (%assert-type #f obj SCM_ARG1 'append-pretty-printer!))))