diff --git a/class.rkt b/class.rkt index 77bcb15..fa51878 100644 --- a/class.rkt +++ b/class.rkt @@ -20,6 +20,9 @@ (define/public (handle) ksh) + (define/public (close) + (ks-close ksh)) + (define/public (set! key val) (ks-set! ksh key val) this) diff --git a/scrbl/class.scrbl b/scrbl/class.scrbl index fa6972c..95e8c11 100644 --- a/scrbl/class.scrbl +++ b/scrbl/class.scrbl @@ -22,6 +22,11 @@ Opens or creates a keystore using @racket[file]. The meaning of @racket[file] is the same as for @racket[ks-open]. } +@defmethod[(close) boolean?]{ + +Closes the keystore connection. +} + @defmethod[(handle) keystore?]{ Returns the underlying keystore handle.