PR guile/17177

[deliverable/binutils-gdb.git] / gdb / guile / lib / gdb / printing.scm

diff --git a/gdb/guile/lib/gdb/printing.scm b/gdb/guile/lib/gdb/printing.scm
index eac94178cbdbb38ee6c36e3d4e2b0ec4831bc5b7..2d1274f984dd5c83b683f1684475245101e63898 100644 (file)
--- 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))))