82 |
(define (provided? feature) |
(define (provided? feature) |
83 |
(and (memq feature *features*) #t)) |
(and (memq feature *features*) #t)) |
84 |
|
|
85 |
;;; presumably deprecated. |
(begin-deprecated |
86 |
(define (feature? sym) |
(define (feature? sym) |
87 |
(issue-deprecation-warning |
(issue-deprecation-warning |
88 |
"`feature?' is deprecated. Use `provided?' instead.") |
"`feature?' is deprecated. Use `provided?' instead.") |
89 |
(provided? sym)) |
(provided? sym))) |
90 |
|
|
91 |
;;; let format alias simple-format until the more complete version is loaded |
;;; let format alias simple-format until the more complete version is loaded |
92 |
(define format simple-format) |
(define format simple-format) |