summaryrefslogtreecommitdiff
path: root/libguile/net_db.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/net_db.c')
-rw-r--r--libguile/net_db.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/net_db.c b/libguile/net_db.c
index 0785f604e..58d64cd9e 100644
--- a/libguile/net_db.c
+++ b/libguile/net_db.c
@@ -351,10 +351,10 @@ SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0,
return scm_return_entry (entry);
}
- scm_frame_begin (0);
+ scm_dynwind_begin (0);
protoname = scm_to_locale_string (protocol);
- scm_frame_free (protoname);
+ scm_dynwind_free (protoname);
if (scm_is_string (name))
{
@@ -372,7 +372,7 @@ SCM_DEFINE (scm_getserv, "getserv", 0, 2, 0,
if (!entry)
SCM_SYSERROR_MSG("no such service ~A", scm_list_1 (name), eno);
- scm_frame_end ();
+ scm_dynwind_end ();
return scm_return_entry (entry);
}
#undef FUNC_NAME