summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
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 ()
{