X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=gdb%2Fguile%2Flib%2Fgdb%2Fprinting.scm;h=2d1274f984dd5c83b683f1684475245101e63898;hb=ee7333ae06f46f3a6909a0059c2f0bd441a54bfe;hp=eac94178cbdbb38ee6c36e3d4e2b0ec4831bc5b7;hpb=74edf51613b507d1f27d66360cd8fdd8a253e88a;p=deliverable%2Fbinutils-gdb.git

diff --git a/gdb/guile/lib/gdb/printing.scm b/gdb/guile/lib/gdb/printing.scm
index eac94178cb..2d1274f984 100644
--- a/gdb/guile/lib/gdb/printing.scm
+++ b/gdb/guile/lib/gdb/printing.scm
@@ -19,7 +19,8 @@
 
 (define-module (gdb printing)
   #:use-module ((gdb) #:select
-		(*pretty-printers* pretty-printer? objfile? progspace?
+		(pretty-printer? objfile? progspace?
+		 pretty-printers set-pretty-printers!
 		 objfile-pretty-printers set-objfile-pretty-printers!
 		 progspace-pretty-printers set-progspace-pretty-printers!))
   #:use-module (gdb init))
@@ -30,7 +31,7 @@ If OBJ is #f, add MATCHER to the global list."
   (%assert-type (pretty-printer? matcher) matcher SCM_ARG1
 		'prepend-pretty-printer!)
   (cond ((eq? obj #f)
-	 (set! *pretty-printers* (cons matcher *pretty-printers*)))
+	 (set-pretty-printers! (cons matcher (pretty-printers))))
 	((objfile? obj)
 	 (set-objfile-pretty-printers!
 	  obj (cons matcher (objfile-pretty-printers obj))))
@@ -46,7 +47,7 @@ If OBJ is #f, add MATCHER to the global list."
   (%assert-type (pretty-printer? matcher) matcher SCM_ARG1
 		'append-pretty-printer!)
   (cond ((eq? obj #f)
-	 (set! *pretty-printers* (append! *pretty-printers* (list matcher))))
+	 (set-pretty-printers! (append! (pretty-printers) (list matcher))))
 	((objfile? obj)
 	 (set-objfile-pretty-printers!
 	  obj (append! (objfile-pretty-printers obj) (list matcher))))