1;;;; Copyright (C) 2017, 2020 Free Software Foundation, Inc. 2;;;; 3;;;; This library is free software; you can redistribute it and/or 4;;;; modify it under the terms of the GNU Lesser General Public 5;;;; License as published by the Free Software Foundation; either 6;;;; version 3 of the License, or (at your option) any later version. 7;;;; 8;;;; This library is distributed in the hope that it will be useful, 9;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 10;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 11;;;; Lesser General Public License for more details. 12;;;; 13;;;; You should have received a copy of the GNU Lesser General Public 14;;;; License along with this library; if not, write to the Free Software 15;;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 16;;;; 17 18(define-module (ice-9 deprecated) 19 #:use-module (ice-9 copy-tree) 20 #:export ((copy-tree* . copy-tree))) 21 22(define-syntax-rule (define-deprecated name message exp) 23 (begin 24 (define-syntax rule 25 (identifier-syntax 26 (begin 27 (issue-deprecation-warning message) 28 exp))) 29 (export rule))) 30 31(define %allow-legacy-syntax-objects? (make-parameter #f)) 32(define-deprecated allow-legacy-syntax-objects? 33 "allow-legacy-syntax-objects? is deprecated and has no effect. Guile 343.0 has no legacy syntax objects." 35 %allow-legacy-syntax-objects?) 36 37(define (copy-tree* x) 38 (issue-deprecation-warning 39 "copy-tree in the default environment is deprecated. Import it 40from (ice-9 copy-tree) instead.") 41 (copy-tree x)) 42