1 |
;;; installed-scm-file |
;;; installed-scm-file |
2 |
|
|
3 |
;;;; 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. |
4 |
;;;; |
;;;; |
5 |
;;;; This program is free software; you can redistribute it and/or modify |
;;;; This program is free software; you can redistribute it and/or modify |
6 |
;;;; it under the terms of the GNU General Public License as published by |
;;;; it under the terms of the GNU General Public License as published by |
83 |
(and (memq feature *features*) #t)) |
(and (memq feature *features*) #t)) |
84 |
|
|
85 |
;;; presumably deprecated. |
;;; presumably deprecated. |
86 |
(define feature? provided?) |
(define (feature? sym) |
87 |
|
(issue-deprecation-warning |
88 |
|
"`feature?' is deprecated. Use `provided?' instead.") |
89 |
|
(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) |