~ chicken-core (chicken-5) 458da2489efd1d8413b3efbf500d4a81a872afed

commit 458da2489efd1d8413b3efbf500d4a81a872afed
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Feb 9 05:07:55 2011 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Feb 9 05:07:55 2011 -0500

    moved default feature-id's to better places; added srfi-46

diff --git a/eval.scm b/eval.scm
index 26f14cb1..b84eca64 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1458,13 +1458,6 @@
 		  (else (loop (##sys#slot paths 1))) ) ) ) ) ) )
 
 
-;;; SRFI-0 support code:
-
-(set! ##sys#features
-  (append '(#:srfi-8 #:srfi-6 #:srfi-2 #:srfi-0 #:srfi-10 #:srfi-9 #:srfi-55 #:srfi-61) 
-	  ##sys#features))
-
-
 ;;;; Read-Eval-Print loop:
 
 (define ##sys#repl-eval-hook #f)
diff --git a/expand.scm b/expand.scm
index f8f44318..4dbf1016 100644
--- a/expand.scm
+++ b/expand.scm
@@ -38,7 +38,10 @@
 (include "common-declarations.scm")
 
 (set! ##sys#features
-  (append '(#:hygienic-macros #:syntax-rules) ##sys#features))
+  (append '(#:hygienic-macros 
+	    #:syntax-rules 
+	    #:srfi-0 #:srfi-2 #:srfi-6 #:srfi-9 #:srfi-46 #:srfi-55 #:srfi-61) 
+	  ##sys#features))
 
 (define-alias dd d)
 (define-alias dm d)
diff --git a/library.scm b/library.scm
index 4635af06..31c8b375 100644
--- a/library.scm
+++ b/library.scm
@@ -3545,6 +3545,7 @@ EOF
 
 (define ##sys#features
   '(#:chicken #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:srfi-17 #:srfi-12 #:srfi-88 #:srfi-98
+	      #:srfi-6 #:srfi-10
 	      #:irregex-is-core-unit))
 
 ;; Add system features: