From c750643a6d602fbb841169de1e8f55996c4c5d9b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 13 May 2018 17:15:59 -0700
Subject: [PATCH] Rename GET-SUPPORTED-FEATURES to FEATURES for R7RS.

Also add some more R7RS comments to runtime.pkg.
---
 src/runtime/mit-macros.scm | 2 +-
 src/runtime/runtime.pkg    | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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")
-- 
2.25.1