summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2002-09-15 21:30:39 +0000
committerMarius Vollmer <mvo@zagadka.de>2002-09-15 21:30:39 +0000
commitf4232aa66425ae156f2636c9539ffd8d01b40af7 (patch)
tree614b5295375b97de3c4252c076d05dd65466c0dd
parent5fc0857ef607e5deaa7818021f14602f6bdbb95b (diff)
downloadguile-f4232aa66425ae156f2636c9539ffd8d01b40af7.tar.gz
(feature?): Added deprecation message.
-rw-r--r--ice-9/ChangeLog4
-rw-r--r--ice-9/boot-9.scm5
2 files changed, 8 insertions, 1 deletions
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)