From 2658ff802c3df4ee9a02a465b847ee9e19cccecd Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sun, 15 Sep 2002 21:34:09 +0000 Subject: [PATCH] (feature?): Added deprecation message and enclosed in 'begin-deprecated'. --- ice-9/ChangeLog | 3 ++- ice-9/boot-9.scm | 10 +++++----- 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 6eb36f1db..ab966a3e5 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,6 +1,7 @@ 2002-09-15 Marius Vollmer - * boot-9.scm (feature?): Added deprecation message. + * boot-9.scm (feature?): Added deprecation message and enclosed in + 'begin-deprecated'. 2002-07-08 Marius Vollmer diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm index 2ac41b482..6973a8f36 100644 --- a/ice-9/boot-9.scm +++ b/ice-9/boot-9.scm @@ -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)