mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Move feature?' to deprecated.scm'.

Browse source 
* module/ice-9/boot-9.scm (feature?): Move to...

* module/ice-9/deprecated.scm (feature?): ... here.
This commit is contained in:
Ludovic Courtès 2010-01-11 00:25:20 +01:00
parent 0ea72faa4e
commit e63dda67d7
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/ice-9/boot-9.scm
View file

@ -3542,12 +3542,6 @@ module '(ice-9 q) '(make-q q-length))}."
;;; {Deprecated stuff} ;;; {Deprecated stuff}
;;; ;;;
(begin-deprecated
(define (feature? sym)
(issue-deprecation-warning
"`feature?' is deprecated. Use `provided?' instead.")
(provided? sym)))
(begin-deprecated (begin-deprecated
(module-use! the-scm-module (resolve-interface '(ice-9 deprecated)))) (module-use! the-scm-module (resolve-interface '(ice-9 deprecated))))

7
module/ice-9/deprecated.scm
View file

@ -19,7 +19,7 @@
#:export (substring-move-left! substring-move-right! #:export (substring-move-left! substring-move-right!
dynamic-maybe-call dynamic-maybe-link dynamic-maybe-call dynamic-maybe-link
try-module-linked try-module-dynamic-link try-module-linked try-module-dynamic-link
list* eval-case unmemoize-expr list* feature? eval-case unmemoize-expr
$asinh $asinh
$acosh $acosh
$atanh $atanh
@ -191,6 +191,11 @@
(issue-deprecation-warning "'list*' is deprecated. Use 'cons*' instead.") (issue-deprecation-warning "'list*' is deprecated. Use 'cons*' instead.")
(apply cons* args)) (apply cons* args))
(define (feature? sym)
(issue-deprecation-warning
"`feature?' is deprecated. Use `provided?' instead.")
(provided? sym))
(define-macro (eval-case . clauses) (define-macro (eval-case . clauses)
(issue-deprecation-warning (issue-deprecation-warning
"`eval-case' is deprecated. Use `eval-when' instead.") "`eval-case' is deprecated. Use `eval-when' instead.")