mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-02 02:10:19 +02:00
(feature?): Added deprecation message.
This commit is contained in:
parent
fa31bc5d99
commit
67005048a4
2 changed files with 9 additions and 2 deletions
|
@ -1,3 +1,7 @@
|
|||
2002-09-15 Marius Vollmer <mvo@zagadka.ping.de>
|
||||
|
||||
* boot-9.scm (feature?): Added deprecation message.
|
||||
|
||||
2002-07-08 Marius Vollmer <mvo@zagadka.ping.de>
|
||||
|
||||
* slib.scm (make-exchanger): Added. Thanks to Clinton Ebadi!
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
;;; installed-scm-file
|
||||
|
||||
;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
|
||||
;;;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
|
||||
;;;;
|
||||
;;;; This program is free software; you can redistribute it and/or modify
|
||||
;;;; it under the terms of the GNU General Public License as published by
|
||||
|
@ -83,7 +83,10 @@
|
|||
(and (memq feature *features*) #t))
|
||||
|
||||
;;; presumably 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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue