Rename GET-SUPPORTED-FEATURES to FEATURES for R7RS.

Also add some more R7RS comments to runtime.pkg.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 7924179a71a4f74da9ec54907b8999fd36c43edc..603a96d3c09c4ed844455b86909613bb7b90102c 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -600,7 +600,7 @@ USA.
 (define-feature 'i386 (machine? "IA-32"))
 (define-feature 'x86-64 (machine? "x86-64"))
 
-(define (get-supported-features)
+(define (features)
   (filter-map (lambda (p)
                (and ((cdr p))
                     (car p)))

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 164176b066b06c7ecbf7bb94e2e42ebdee1a1892..7322d00ff990de14ac6103177d8d2f57af3e5374 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4772,7 +4772,7 @@ USA.
          (receive $receive)
          (unless $unless)
          (when $when)
-         get-supported-features))
+         features))
 
 (define-package (runtime syntax syntax-rules)
   (files "syntax-rules")