diff options
| -rw-r--r-- | ravanan/work/vectors.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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))) |