guile-gtk-general
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[PATCH] gnome-vfs: Replace deprecated constructs


From: Detlev Zundel
Subject: [PATCH] gnome-vfs: Replace deprecated constructs
Date: Sat, 14 Aug 2010 17:12:59 +0200

Signed-off-by: Detlev Zundel <address@hidden>
---
 gnome/gw/gnome-vfs-port.c    |    2 +-
 gnome/gw/gnome-vfs-support.h |    4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/gnome/gw/gnome-vfs-port.c b/gnome/gw/gnome-vfs-port.c
index 1075317..324e76b 100644
--- a/gnome/gw/gnome-vfs-port.c
+++ b/gnome/gw/gnome-vfs-port.c
@@ -150,7 +150,7 @@ scm_gnome_vfs_handle_to_port (GnomeVFSHandle *handle, 
GnomeVFSOpenMode mode,
         scm_vport_buffer_add (port, 0, 0);
     else
         scm_vport_buffer_add (port, -1, -1);
-    SCM_SET_FILENAME (port, scm_makfrom0str (uri));
+    SCM_SET_FILENAME (port, scm_from_locale_string (uri));
 
     UNLOCK;
 
diff --git a/gnome/gw/gnome-vfs-support.h b/gnome/gw/gnome-vfs-support.h
index 5469803..8d5fe2e 100644
--- a/gnome/gw/gnome-vfs-support.h
+++ b/gnome/gw/gnome-vfs-support.h
@@ -26,9 +26,9 @@
 #include "guile-gnome-gobject.h"
 
 #define RESULT_ERROR(result) \
-  scm_throw (scm_str2symbol ("gnome-vfs-error"), \
+  scm_throw (scm_from_locale_symbol ("gnome-vfs-error"), \
              scm_list_1 \
-             (scm_str2symbol (g_enum_get_value \
+             (scm_from_locale_symbol (g_enum_get_value \
                               ((GEnumClass*)g_type_class_peek \
                                (GNOME_VFS_TYPE_VFS_RESULT), \
                                result)->value_nick)))
-- 
1.7.1




reply via email to

[Prev in Thread] Current Thread [Next in Thread]