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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 43243a6bd8fda89df0f9320e8d6cacf7029a355e..08dd1c376905ca359563350b7fc81b85f06377b2 100644 (file)
--- 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 36e32756808ceacf13cf6ae3f98813e9fc867450..29447025bda3655439e0c766ac334d51eaeb281a 100644 (file)
--- 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!))))