From abcad92433472629dc66fecbe3c9b4cd67fa3c4e Mon Sep 17 00:00:00 2001
From: felix <address@hidden>
Date: Sun, 11 Mar 2018 21:39:50 +0100
Subject: [PATCH] remove obsolete feature identifiers

---
 expand.scm           |    3 +--
 library.scm          |    4 +---
 modules.scm          |    2 --
 tests/apply-test.scm |    3 ---
 4 files changed, 2 insertions(+), 10 deletions(-)

diff --git a/expand.scm b/expand.scm
index 337bcf2..7ba3715 100644
--- a/expand.scm
+++ b/expand.scm
@@ -65,8 +65,7 @@
 	  ?se))))
 
 (set! ##sys#features
-  (append '(#:hygienic-macros #:syntax-rules
-	    #:srfi-0 #:srfi-2 #:srfi-6 #:srfi-9 #:srfi-46 #:srfi-55 #:srfi-61) 
+  (append '(#:srfi-0 #:srfi-2 #:srfi-6 #:srfi-9 #:srfi-46 #:srfi-55 #:srfi-61) 
 	  ##sys#features))
 
 (define-alias dd d)
diff --git a/library.scm b/library.scm
index cd71a21..eaa2ce0 100644
--- a/library.scm
+++ b/library.scm
@@ -6502,9 +6502,7 @@ static C_word C_fcall C_setenv(C_word x, C_word y) {
 
 (define ##sys#features
   '(#:chicken
-    #:srfi-6 #:srfi-12 #:srfi-17 #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62
-    ;; TODO: consider removing at least irregex-is-core-unit
-    #:irregex-is-core-unit #:full-numeric-tower #:manyargs))
+    #:srfi-6 #:srfi-12 #:srfi-17 #:srfi-23 #:srfi-30 #:srfi-39 #:srfi-62 #:full-numeric-tower))
 
 ;; Add system features:
 
diff --git a/modules.scm b/modules.scm
index f113a87..2d72e36 100644
--- a/modules.scm
+++ b/modules.scm
@@ -1124,8 +1124,6 @@
  '((get-environment-variable . chicken.process-context#get-environment-variable)
    (get-environment-variables . chicken.process-context#get-environment-variables)))
 
-(register-feature! 'module-environments)
-
 (define (chicken.module#module-environment mname #!optional (ename mname))
   (let ((mod (find-module/import-library mname 'module-environment)))
     (if (not mod)
diff --git a/tests/apply-test.scm b/tests/apply-test.scm
index 9c05e1c..c6f48a5 100644
--- a/tests/apply-test.scm
+++ b/tests/apply-test.scm
@@ -22,9 +22,6 @@
 	(car lst)
 	(loop (cdr lst)))))
 
-;; Non-manyarg CHICKENs are no longer made
-(assert (feature? 'manyargs))
-
 (define (foo . args)
   (when (pair? args)
     (assert (= (length args) (last args)))))
-- 
1.7.9.5