diff options
author | Marius Vollmer <mvo@zagadka.de> | 2002-09-15 21:30:39 +0000 |
---|---|---|
committer | Marius Vollmer <mvo@zagadka.de> | 2002-09-15 21:30:39 +0000 |
commit | f4232aa66425ae156f2636c9539ffd8d01b40af7 (patch) | |
tree | 614b5295375b97de3c4252c076d05dd65466c0dd | |
parent | 5fc0857ef607e5deaa7818021f14602f6bdbb95b (diff) | |
download | guile-f4232aa66425ae156f2636c9539ffd8d01b40af7.tar.gz |
(feature?): Added deprecation message.
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | ice-9/boot-9.scm | 5 |
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) |