mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +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> 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> 2002-07-08 Marius Vollmer <mvo@zagadka.ping.de>

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

@ -82,11 +82,11 @@
(define (provided? feature) (define (provided? feature)
(and (memq feature *features*) #t)) (and (memq feature *features*) #t))
;;; presumably deprecated. (begin-deprecated
(define (feature? sym) (define (feature? sym)
(issue-deprecation-warning (issue-deprecation-warning
"`feature?' is deprecated. Use `provided?' instead.") "`feature?' is deprecated. Use `provided?' instead.")
(provided? sym)) (provided? sym)))
;;; let format alias simple-format until the more complete version is loaded ;;; let format alias simple-format until the more complete version is loaded
(define format simple-format) (define format simple-format)