1
Fork 0
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:
Marius Vollmer 2002-09-15 20:51:09 +00:00
parent fa31bc5d99
commit 67005048a4
2 changed files with 9 additions and 2 deletions

View file

@ -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!

View file

@ -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)