Implement get-supported-features.

diff --git a/src/runtime/mit-macros.scm b/src/runtime/mit-macros.scm
index 76df49bf0e7d764b18b42032df583a2c4343c836..835fe0e4cda1da086dd159d876a0ea32127a18dc 100644 (file)
--- a/src/runtime/mit-macros.scm
+++ b/src/runtime/mit-macros.scm
@@ -136,6 +136,12 @@ USA.
 
 (define-feature 'i386 (machine? "IA-32"))
 (define-feature 'x86-64 (machine? "x86-64"))
+
+(define (get-supported-features)
+  (filter-map (lambda (p)
+               (and ((cdr p))
+                    (car p)))
+             supported-features))
 \f
 (define-syntax :receive
   (er-macro-transformer

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 7c634e3a7c8dae12405b81a238cd9ab8e1ca4dcd..54feee00b382dd7be9a37f77687a9332ff83ba6d 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -4493,7 +4493,8 @@ USA.
          (quasiquote :quasiquote)
          (receive :receive)
          (unless :unless)
-         (when :when))
+         (when :when)
+         get-supported-features)
   (export (runtime)
          parse-define-form))