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

2014-03-02 09:17:46 -08:00
parent 8913591154
commit 667f9d0bdd
2 changed files with 5 additions and 1 deletions
--- 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!))))