diff options
author | Andy Wingo <wingo@pobox.com> | 2011-05-26 17:03:23 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-05-26 17:03:23 +0200 |
commit | ebc16e6a762748fc5939903a8b3a367d422f1371 (patch) | |
tree | 4941c8dc8a835ceeb7e05c5f981e82c8c8b4d2aa /libguile/deprecated.c | |
parent | a099c8d971c1d5b32e00f25469b36ce45fd4d8c7 (diff) | |
parent | a8952d1fb73218ad2389bb290ebbb737d4f88fce (diff) | |
download | guile-ebc16e6a762748fc5939903a8b3a367d422f1371.tar.gz |
Merge remote-tracking branch 'local-2.0/stable-2.0'
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 3e2d88a7f..e6ef91757 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -56,6 +56,28 @@ scm_internal_dynamic_wind (scm_t_guard before, +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 scm_i_init_deprecated () { |