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 0b9ce3558..fcc4e8343 100644
--- a/libguile/deprecated.c
+++ b/libguile/deprecated.c
@@ -31,8 +31,10 @@
#include "boolean.h"
#include "bitvectors.h"
#include "deprecation.h"
+#include "eval.h"
#include "gc.h"
#include "gsubr.h"
+#include "modules.h"
#include "procprop.h"
#include "srcprop.h"
#include "srfi-4.h"
@@ -586,6 +588,16 @@ scm_make_srcprops (long line, int col, SCM filename, SCM copy, SCM alist)
filename, alist);
}
+SCM
+scm_copy_tree (SCM obj)
+{
+ scm_c_issue_deprecation_warning
+ ("scm_copy_tree is deprecated; use copy-tree from (ice-9 copy-tree) "
+ "instead.");
+
+ return scm_call_1 (scm_c_public_ref ("ice-9 copy-tree", "copy-tree"), obj);
+}
+