summaryrefslogtreecommitdiff
path: root/module/oop
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 /module/oop
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 'module/oop')
-rw-r--r--module/oop/goops/save.scm13
1 files changed, 7 insertions, 6 deletions
diff --git a/module/oop/goops/save.scm b/module/oop/goops/save.scm
index 20c3b0541..5f0d6457e 100644
--- a/module/oop/goops/save.scm
+++ b/module/oop/goops/save.scm
@@ -1,6 +1,6 @@
;;; installed-scm-file
-;;;; Copyright (C) 2000,2001,2002, 2006, 2009, 2010, 2013, 2015 Free Software Foundation, Inc.
+;;;; Copyright (C) 2000,2001,2002, 2006, 2009, 2010, 2013, 2015, 2020 Free Software Foundation, Inc.
;;;;
;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public
@@ -19,11 +19,12 @@
(define-module (oop goops save)
- :use-module (oop goops internal)
- :export (make-unbound save-objects load-objects restore
- enumerate! enumerate-component!
- write-readably write-component write-component-procedure
- literal? readable make-readable))
+ #:use-module (ice-9 copy-tree)
+ #:use-module (oop goops internal)
+ #:export (make-unbound save-objects load-objects restore
+ enumerate! enumerate-component!
+ write-readably write-component write-component-procedure
+ literal? readable make-readable))
(define (make-unbound)
*unbound*)