Use clearer example for lens-join/hash

Closes #237
This commit is contained in:
Jack Firth 2015-12-03 16:50:57 -08:00
parent a4d7cade34
commit 0d4a464c44

View File

@ -10,8 +10,9 @@
if lenses share views later lenses take precedence when
setting.
@lens-examples[
(define a-b-lens (lens-join/hash 'a first-lens
'b third-lens))
(lens-view a-b-lens '(1 2 3))
(lens-set a-b-lens '(1 2 3) (hash 'a 100 'b 200))
(define first-third-hash-lens
(lens-join/hash 'first first-lens
'third third-lens))
(lens-view first-third-hash-lens '(1 2 3))
(lens-set first-third-hash-lens '(1 2 3) (hash 'first 100 'third 200))
]}