From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 14 May 2018 00:15:59 +0000 (-0700)
Subject: Rename GET-SUPPORTED-FEATURES to FEATURES for R7RS.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~50
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c750643a6d602fbb841169de1e8f55996c4c5d9b;p=mit-scheme.git

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 7924179a7..603a96d3c 100644
--- 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 164176b06..7322d00ff 100644
--- 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")