Remove implicit ordering dependency

2015-07-11 21:16:35 -07:00 · 2015-07-11 21:16:35 -07:00 · d83fdc2e80
commit d83fdc2e80
parent 2308b615f0
1 changed files with 1 additions and 1 deletions
--- a/unstable/lens/compound.rkt
+++ b/unstable/lens/compound.rkt
@ -61,7 +61,7 @@
  (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