From 65619ebe9a9af71f6dd17736f5556e53db485f1c Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 May 2011 12:34:30 +0200 Subject: deprecate scm_immutable_{double_,}cell * libguile/inline.h: * libguile/deprecated.h: * libguile/deprecated.c (scm_immutable_cell, scm_immutable_double_cell): Deprecate these, as the GC_STUBBORN API doesn't do anything any more. * libguile/strings.c (scm_i_c_make_symbol): Change the one use of scm_immutable_double_cell to scm_double_cell. --- libguile/deprecated.c | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) (limited to 'libguile/deprecated.c') diff --git a/libguile/deprecated.c b/libguile/deprecated.c index c7e2aae2d..2026788c6 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -2595,6 +2595,28 @@ scm_internal_dynamic_wind (scm_t_guard before, return ans; } + + +SCM +scm_immutable_cell (scm_t_bits car, scm_t_bits cdr) +{ + scm_c_issue_deprecation_warning + ("scm_immutable_cell is deprecated. Use scm_cell instead."); + + return scm_cell (car, cdr); +} + +SCM +scm_immutable_double_cell (scm_t_bits car, scm_t_bits cbr, + scm_t_bits ccr, scm_t_bits cdr) +{ + scm_c_issue_deprecation_warning + ("scm_immutable_double_cell is deprecated. Use scm_double_cell instead."); + + return scm_double_cell (car, cbr, ccr, cdr); +} + + void -- cgit v1.2.3