summaryrefslogtreecommitdiff
path: root/libguile/deprecated.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-09-10 21:57:21 +0200
committerAndy Wingo <wingo@pobox.com>2020-09-10 21:57:21 +0200
commite9c5a1719bae94961ae40151f476a3e221e94b18 (patch)
tree49ec142e1f978565b8ddebd8ad349c9b8d73025b /libguile/deprecated.c
parent433b701a2339ac152ab0b7f42e8221c5163a9093 (diff)
downloadguile-e9c5a1719bae94961ae40151f476a3e221e94b18.tar.gz
Move copy-tree to (ice-9 copy-tree); deprecate main binding
* doc/ref/api-data.texi (List Constructors): * doc/ref/api-utility.texi (Copying): Update docs to mention module. * libguile.h: Remove trees.h inclusion. * libguile/Makefile.am (libguile_@GUILE_EFFECTIVE_VERSION@_la_SOURCES): (DOT_X_FILES, DOT_DOC_FILES, modinclude_HEADERS): Remove trees.c, trees.h, and related files. * libguile/init.c (scm_i_init_guile): Remove trees.h and the scm_init_trees call. * libguile/trees.c: * libguile/trees.h: Remove. * module/Makefile.am (SOURCES): Add ice-9/copy-tree.scm. * module/ice-9/copy-tree.scm: New file. * module/ice-9/deprecated.scm (copy-tree*): Export as copy-tree, proxying to (ice-9 copy-tree). * module/system/repl/common.scm: * module/web/client.scm: * test-suite/tests/elisp.test: * test-suite/tests/srfi-1.test: * module/oop/goops/save.scm: Use (ice-9 copy-tree). * test-suite/Makefile.am (SCM_TESTS): Add copy-tree.test. * test-suite/tests/copy-tree.test: New file; test pulled from eval.test. * libguile/deprecated.h: * libguile/deprecated.c (scm_copy_tree): 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 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);
+}
+