(feature?): Added deprecation message.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index dcdea35..6774ea7 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,7 @@
+2002-09-15  Marius Vollmer  <mvo@zagadka.ping.de>
+
+       * boot-9.scm (feature?): Added deprecation message.
+
 2002-09-14  Rob Browning  <rlb@defaultvalue.org>
 
        * boot-9.scm (sqrt): minor indentation fix.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 71bc2bf..81b3ee3 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -83,7 +83,10 @@
   (and (memq feature *features*) #t))
 
 (begin-deprecated
- (define feature? provided?))
+ (define (feature? sym)
+   (issue-deprecation-warning
+    "`feature?' is deprecated.  Use `provided?' instead.")
+   (provided? sym)))
 
 ;;; let format alias simple-format until the more complete version is loaded
 (define format simple-format)