From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Dec 2022 13:21:23 +0000 (-0800)
Subject: Fix missing SRFIs.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4d87653bf1feaa58325ccfe9003230fd7b317548;p=mit-scheme.git

Fix missing SRFIs.
---

diff --git a/src/runtime/feature.scm b/src/runtime/feature.scm
index 65df5a022..f3f031f06 100644
--- 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 7e78aa08f..37cc54196 100644
--- 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))
 
 ;;;; Synthetic libraries