From 799f28bbd4edca7285db1460f9a91720a4c47d04 Mon Sep 17 00:00:00 2001
From: Hans Dijkema <hans@dijkewijk.nl>
Date: Mon, 31 Aug 2026 16:47:27 +0200
Subject: [PATCH] keystore? exported

---
 keystore.rkt         |  1 +
 scrbl/keystore.scrbl | 10 ++++++++++
 2 files changed, 11 insertions(+)

diff --git a/keystore.rkt b/keystore.rkt
index 7df9813..c06a0e9 100644
--- a/keystore.rkt
+++ b/keystore.rkt
@@ -26,6 +26,7 @@
          ks-end-transaction
          ks-abort-transaction
          ks-with-lock
+         keystore?
          )
 
 (define (any? a) #t)
diff --git a/scrbl/keystore.scrbl b/scrbl/keystore.scrbl
index 58a9ef5..98ca957 100644
--- a/scrbl/keystore.scrbl
+++ b/scrbl/keystore.scrbl
@@ -36,6 +36,16 @@ The @tt{keystore?} predicate is altered to also check if the
 database connection is (still) valid.
 }
 
+@defproc[(keystore? [ks any/c]) boolean?]{
+
+Returns #t, if ks is a valid keystore.
+Returns #f, otherwise.
+
+Note. When a previously opened keystore (which is valid), is closed with @tt{ks-close},
+keystore? will return #f, because the keystore is not valid anymore. 
+}
+                                         
+
 @section{Opening & Closing}
 
 @defproc[(ks-open [file (or/c path? string? symbol?)]) keystore?]{