[PATCH] gnome-vfs: Replace deprecated constructs
Detlev Zundel <[email protected]> Sat, 14 Aug 2010 17:12:59 +0200
| Newsgroups | gmane.lisp.guile.gtk |
|---|---|
| Message-ID | <[email protected]> |
Signed-off-by: Detlev Zundel <[email protected]> --- 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