summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r--libguile/deprecated.c22
1 files changed, 22 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c
index c8d353f89..fd671e9e5 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -680,6 +680,28 @@ scm_dynwind_critical_section (SCM mutex)
+SCM
+scm_make_mutex_with_flags (SCM flags)
+{
+ SCM kind = SCM_UNDEFINED;
+
+ scm_c_issue_deprecation_warning
+ ("'scm_make_mutex_with_flags' is deprecated. "
+ "Use 'scm_make_mutex_with_kind' instead.");
+
+ if (!scm_is_null (flags))
+ {
+ if (!scm_is_null (scm_cdr (flags)))
+ scm_misc_error (NULL, "too many mutex options: ~a", scm_list_1 (flags));
+ kind = scm_car (flags);
+ }
+
+ return scm_make_mutex_with_kind (kind);
+}
+
+
+
+
void
scm_i_init_deprecated ()
{