summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-10-03 19:45:41 +0200
committerAndy Wingo <wingo@pobox.com>2013-10-03 20:37:48 +0200
commitd7794a9d07ba657a29f7e608c3e558c437806def (patch)
tree48e2fdceb2e3088c9bee5029b7417bbe43bc116c /libguile/deprecated.c
parent8df68898b9f6ba15171244f1f3549688f13d605f (diff)
downloadguile-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.c12
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 ()
{