Fix missing SRFIs.

diff --git a/src/runtime/feature.scm b/src/runtime/feature.scm
index 65df5a02285a7200addca943731cb7d3b05f97fe..f3f031f062f909f15dcbeb2766e1163eee7d4f4d 100644 (file)
--- a/src/runtime/feature.scm
+++ b/src/runtime/feature.scm
@@ -83,6 +83,7 @@ USA.
     srfi-133   ;Vector Library (R7RS-compatible)
     srfi-143   ;Fixnums
     srfi-158   ;Generators and Accumulators
+    srfi-162   ;Comparators sublibrary
     srfi-219   ;Define higher-order lambda
 
     ;; SRFI 115 features

diff --git a/src/runtime/library-standard.scm b/src/runtime/library-standard.scm
index 7e78aa08fec4487514c1015b9552962e84a87bd5..37cc54196d604026a2ec8baa18879fe2024c4b94 100644 (file)
--- a/src/runtime/library-standard.scm
+++ b/src/runtime/library-standard.scm
@@ -1228,6 +1228,28 @@ USA.
     vector->generator
     vector-accumulator
     vector-accumulator!))
+
+(define-standard-library '(srfi 162)
+  '(boolean-comparator
+    char-ci-comparator
+    char-comparator
+    comparator-max
+    comparator-max-in-list
+    comparator-min
+    comparator-min-in-list
+    default-comparator
+    eq-comparator
+    equal-comparator
+    eqv-comparator
+    list-comparator
+    pair-comparator
+    real-comparator
+    string-ci-comparator
+    string-comparator
+    vector-comparator))
+
+(define-standard-library '(srfi 219)
+  '(define))
 \f
 ;;;; Synthetic libraries