diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-03 19:45:41 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-03 20:37:48 +0200 |
commit | d7794a9d07ba657a29f7e608c3e558c437806def (patch) | |
tree | 48e2fdceb2e3088c9bee5029b7417bbe43bc116c /libguile/deprecated.c | |
parent | 8df68898b9f6ba15171244f1f3549688f13d605f (diff) | |
download | guile-d7794a9d07ba657a29f7e608c3e558c437806def.tar.gz |
Deprecate scm_c_program_source, as it has no internal users.
* libguile/programs.c:
* libguile/programs.h:
* libguile/deprecated.h:
* libguile/deprecated.c (scm_c_program_source): Deprecate.
Diffstat (limited to 'libguile/deprecated.c')
-rw-r--r-- | libguile/deprecated.c | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/libguile/deprecated.c b/libguile/deprecated.c index e1dbfaf37..f37b7f1ca 100644 --- a/libguile/deprecated.c +++ b/libguile/deprecated.c @@ -2924,6 +2924,18 @@ SCM_DEFINE (scm_generalized_vector_to_list, "generalized-vector->list", 1, 0, 0, +extern SCM +scm_c_program_source (SCM program, size_t ip) +{ + scm_c_issue_deprecation_warning + ("scm_c_program_source is deprecated. Use scm_program_source instead."); + + return scm_program_source (program, scm_from_size_t (ip), SCM_UNBOUND); +} + + + + void scm_i_init_deprecated () { |