From cf078d9d6cfa3fbc5cc2ef27545c2fc7bc2ca795 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 3 Sep 2020 19:02:41 -0400
Subject: [PATCH] Add additional SRFI 132 functions

---
 srfi/132.sld            | 10 ++++++++--
 srfi/sorting/select.scm |  4 ++++
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/srfi/132.sld b/srfi/132.sld
index e8ef50fc..dc1786de 100644
--- a/srfi/132.sld
+++ b/srfi/132.sld
@@ -10,12 +10,17 @@
                   ))
 
  ; (import (scheme base))
-  (import (scheme cxr))
+  (import (scheme cxr)
+          (srfi 27))
   (export list-sorted? vector-sorted? list-merge vector-merge list-sort vector-sort
           list-stable-sort vector-stable-sort list-merge! vector-merge! list-sort! vector-sort!
           list-stable-sort! vector-stable-sort!
           list-delete-neighbor-dups vector-delete-neighbor-dups
-          list-delete-neighbor-dups! vector-delete-neighbor-dups!)
+          list-delete-neighbor-dups! vector-delete-neighbor-dups!
+          vector-find-median! vector-find-median
+          vector-select! vector-select
+          vector-separate!
+          )
   (include "sorting/delndups.scm")
   (include "sorting/lmsort.scm")
   (include "sorting/sortp.scm")
@@ -25,5 +30,6 @@
   (include "sorting/vmsort.scm")
   (include "sorting/vqsort2.scm")
   (include "sorting/vqsort3.scm")
+  (include "sorting/select.scm")
   (include "sorting/sort.scm") ; must be last
 )
diff --git a/srfi/sorting/select.scm b/srfi/sorting/select.scm
index 0975082b..0ea2bd5a 100644
--- a/srfi/sorting/select.scm
+++ b/srfi/sorting/select.scm
@@ -264,3 +264,7 @@
         (else
          (copy-bigger! <? pivot dst at src (+ start 1) end))))
 
+(define (assert val)
+  (if (not val) 
+    (error 'assert val)))
+