From f0584ae3aa247c5738be7abf7040737865fd1aff Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 27 Sep 2024 16:08:00 +0100
Subject: vectors: Add vector-member.

* ravanan/work/vectors.scm (vector-member): New public function.
---
 ravanan/work/vectors.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/ravanan/work/vectors.scm b/ravanan/work/vectors.scm
index 45c87cb..f47c67b 100644
--- a/ravanan/work/vectors.scm
+++ b/ravanan/work/vectors.scm
@@ -32,7 +32,8 @@
             vector-filter-map
             vector-filter-map->list
             vector-remove
-            vector-find)
+            vector-find
+            vector-member)
   #:re-export (vector-append
                vector-for-each
                vector-map
@@ -102,3 +103,7 @@ element exists, return @code{#f}."
                 (and (pred x)
                      x))
               vec))
+
+(define (vector-member x vec)
+  "Return @code{#t} if @var{x} is a member of @var{vec}. Else, return @code{#f}."
+  (member x (vector->list vec)))
-- 
cgit v1.2.3