Add remaining assoc lens docs

2015-02-24 21:17:39 -08:00 · 2015-02-24 21:17:39 -08:00 · 28fb782947
commit 28fb782947
parent 0fc23328ec
1 changed files with 9 additions and 1 deletions
--- a/lenses/lenses.scrbl
+++ b/lenses/lenses.scrbl
@ -157,4 +157,12 @@ source code: @url["https://github.com/jackfirth/lenses"]
  @lenses-examples[
    (define assoc-foo-lens (assoc-lens "foo" #:is-equal? string=?))
    (lens-view assoc-foo-lens '(("bar" 1) ("foo" 2) ("baz" 3)))
-]}
+]}
+
+@defproc[(assv-lens [key any/c]) (lens/c (listof pair?) any/c)]{
+  Equivalent to @racket[(assov-lens key #:is-equal? eqv?)].
+}
+
+@defproc[(assq-lens [key any/c]) (lens/c (listof pair?) any/c)]{
+  Equivalent to @racket[(assoc-lens key #:is-equal? eq?)].
+}