diff options
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 22 |
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 () { |