diff options
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 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); +} + |