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

* boot-9.scm (cond-expand): Reduce feature list to built-in

Browse source 
features.
This commit is contained in:
Martin Grabmüller 2001-05-14 19:09:50 +00:00
parent 6851c8a446
commit 1d00af09c7
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ice-9/ChangeLog
View file

@ -1,3 +1,8 @@
2001-05-14 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* boot-9.scm (cond-expand): Reduce feature list to built-in
features.
2001-05-14 Dirk Herrmann <D.Herrmann@tu-bs.de>
* boot-9.scm (-1+, return-it, string-character-length, flags):

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

@ -2715,15 +2715,16 @@
;;;
;;; Currently, the following feature identifiers are supported:
;;;
;;; guile r5rs srfi-0 srfi-2 srfi-6 srfi-8 srfi-9 srfi-10 srfi-11 srfi-13
;;; srfi-14 srfi-17 srfi-19
;;; guile r5rs srfi-0 srfi-6
;;;
;;; Remember to update the features list when adding more SRFIs.
(define-macro (cond-expand clause . clauses)
(define features
'(guile r5rs srfi-0 srfi-2 srfi-6 srfi-8 srfi-9 srfi-10 srfi-11 srfi-13
srfi-14 srfi-17 srfi-19))
;; Adjust the above comment when changing this.
'(guile r5rs srfi-0 srfi-6))
(let ((clauses (cons clause clauses))
(syntax-error (lambda (cl)
(error "invalid clause in `cond-expand'" cl))))