mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 04:40:29 +02:00
Code Activity

(feature?): Added deprecation message and enclosed in

Browse source 
'begin-deprecated'.
This commit is contained in:
Marius Vollmer 2002-09-15 21:34:09 +00:00
parent 27d0db6f47
commit 2658ff802c
2 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
ice-9/ChangeLog
View file

@ -1,6 +1,7 @@
2002-09-15 Marius Vollmer <mvo@zagadka.ping.de>
* boot-9.scm (feature?): Added deprecation message.
* boot-9.scm (feature?): Added deprecation message and enclosed in
'begin-deprecated'.
2002-07-08 Marius Vollmer <mvo@zagadka.ping.de>

10
ice-9/boot-9.scm
View file

@ -82,11 +82,11 @@
(define (provided? feature)
(and (memq feature *features*) #t))
;;; presumably deprecated.
(define (feature? sym)
(issue-deprecation-warning
"`feature?' is deprecated. Use `provided?' instead.")
(provided? sym))
(begin-deprecated
(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)