mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-23 20:05:32 +02:00
Code Activity

(feature?): Added deprecation message.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
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!

7
ice-9/boot-9.scm
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)