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

fix vector-mapper-lens example

Browse Source
This commit is contained in:
AlexKnauth 2015-08-20 20:02:57 -04:00
parent e72d2d734c
commit 4c91867b46
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lens/util/immutable.rkt
View File

@ -2,6 +2,8 @@
(provide (all-defined-out))
(require racket/vector)
;; The immutable? predicate only works for strings, byte-strings, vectors, hash-tables, and boxes.
(define (immutable-string? v)
@ -31,3 +33,6 @@
(define (build-immutable-vector n f)
(vector->immutable-vector (build-vector n f)))
(define (immutable-vector-map f v)
(vector->immutable-vector (vector-map f v)))

3
unstable/lens/mapper.scrbl
View File

@ -19,5 +19,6 @@ Creates a lens that maps @racket[lens] over a target vector with @racket[vector-
@lenses-unstable-examples[
(lens-view (vector-mapper-lens first-lens) '#((a b) (c d) (e f)))
(lens-set (vector-mapper-lens first-lens) '#((a b) (c d) (e f)) '#(1 2 3))
(lens-transform (vector-mapper-lens first-lens) '#((a b) (c d) (e f)) (λ (xs) (vector-map symbol->string xs)))
(lens-transform (vector-mapper-lens first-lens) '#((a b) (c d) (e f))
(λ (xs) (vector->immutable-vector (vector-map symbol->string xs))))
]}