Class-ify ui_out

[deliverable/binutils-gdb.git] / gdb / guile / scm-ports.c

diff --git a/gdb/guile/scm-ports.c b/gdb/guile/scm-ports.c
index dea9077aa3396bf6fed91f3a6e5847a261af9c37..68f2f8d0b928bdf6aa53321625c0ed59710afa60 100644 (file)
--- a/gdb/guile/scm-ports.c
+++ b/gdb/guile/scm-ports.c
@@ -531,7 +531,7 @@ ioscm_with_output_to_port_worker (SCM port, SCM thunk, enum oport oport,
     gdb_stderr = port_file;
   else
     {
-      if (ui_out_redirect (current_uiout, port_file) < 0)
+      if (current_uiout->redirect (port_file) < 0)
        warning (_("Current output protocol does not support redirection"));
       else
        make_cleanup_ui_out_redirect_pop (current_uiout);