From f4232aa66425ae156f2636c9539ffd8d01b40af7 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sun, 15 Sep 2002 21:30:39 +0000
Subject: [PATCH] (feature?): Added deprecation message.

---
 ice-9/ChangeLog  | 4 ++++
 ice-9/boot-9.scm | 5 ++++-
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index dcdea356a..6774ea708 100644
--- 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 71bc2bff0..81b3ee3bb 100644
--- 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)