suzanne.soy/lens
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #116 from jackfirth/fix-compound-hash-115

Browse Source 
Fix compound hash 115
This commit is contained in:
Jack Firth 2015-07-11 21:21:53 -07:00
commit dd7a946086
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
unstable/lens/compound.rkt
View File

@ -61,12 +61,12 @@
(define (get target)
(value-list->hash keys (lens-view list-lens target)))
(define (set target new-view-hash)
(lens-set list-lens target (hash-values new-view-hash)))
(lens-set list-lens target (map (hash-ref new-view-hash _) keys)))
(make-lens get set))
(module+ test
(define a-b-lens (compound-hash-lens 'a first-lens
'b third-lens))
(define a-b-lens (compound-hash-lens 'b third-lens
'a first-lens))
(check-equal? (lens-view a-b-lens '(1 2 3))
(hash 'a 1 'b 3))
(check-equal? (lens-set a-b-lens '(1 2 3) (hash 'a 100 'b 200))