Move `feature?' to `deprecated.scm'.

* module/ice-9/boot-9.scm (feature?): Move to...

* module/ice-9/deprecated.scm (feature?): ... here.

diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 32b7f6290ab4a2ece467e84b6c52e14fbeb0da85..a32e2b64f143cb5ff10eb5954905961ee5ecc0d5 100644 (file)
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -3542,12 +3542,6 @@ module '(ice-9 q) '(make-q q-length))}."
 ;;; {Deprecated stuff}
 ;;;
 
-(begin-deprecated
- (define (feature? sym)
-   (issue-deprecation-warning
-    "`feature?' is deprecated.  Use `provided?' instead.")
-   (provided? sym)))
-
 (begin-deprecated
  (module-use! the-scm-module (resolve-interface '(ice-9 deprecated))))
 

diff --git a/module/ice-9/deprecated.scm b/module/ice-9/deprecated.scm
index 0f261715367385c9bcbeb59a71d899a671bea4ee..82cd72635eac8f6c573709646c2a517efbdd78fe 100644 (file)
--- a/module/ice-9/deprecated.scm
+++ b/module/ice-9/deprecated.scm
@@ -19,7 +19,7 @@
   #:export (substring-move-left! substring-move-right!
             dynamic-maybe-call dynamic-maybe-link
             try-module-linked try-module-dynamic-link
-            list* eval-case unmemoize-expr
+            list* feature? eval-case unmemoize-expr
             $asinh
             $acosh
             $atanh
@@ -191,6 +191,11 @@
   (issue-deprecation-warning "'list*' is deprecated.  Use 'cons*' instead.")
   (apply cons* args))
 
+(define (feature? sym)
+  (issue-deprecation-warning
+   "`feature?' is deprecated.  Use `provided?' instead.")
+  (provided? sym))
+
 (define-macro (eval-case . clauses)
   (issue-deprecation-warning
    "`eval-case' is deprecated.  Use `eval-when' instead.")