From 4d87653bf1feaa58325ccfe9003230fd7b317548 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 23 Dec 2022 05:21:23 -0800
Subject: [PATCH] Fix missing SRFIs.

---
 src/runtime/feature.scm          |  1 +
 src/runtime/library-standard.scm | 22 ++++++++++++++++++++++
 2 files changed, 23 insertions(+)

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
 
-- 
2.47.3