From 018733ff9e59a67b8f6776c7f60ce6443c8f2979 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 9 Jul 2004 23:44:48 +0000
Subject: [PATCH] (%cond-expand-features): Add srfi-6 which is in the core.

---
 ice-9/boot-9.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 7ec826e23..4df582807 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -3183,14 +3183,18 @@
 ;;;
 ;;; Currently, the following feature identifiers are supported:
 ;;;
-;;;   guile r5rs srfi-0
+;;;   guile r5rs srfi-0 srfi-6
 ;;;
 ;;; Remember to update the features list when adding more SRFIs.
 ;;;
 
 (define %cond-expand-features
   ;; Adjust the above comment when changing this.
-  '(guile r5rs srfi-0))
+  '(guile
+    r5rs
+    srfi-0   ;; cond-expand itself
+    srfi-6   ;; open-input-string etc, in the guile core
+    ))
 
 ;; This table maps module public interfaces to the list of features.
 ;;