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

Fix uses of * forms in other modules

Browse Source
This commit is contained in:
Jack Firth 2015-07-08 13:22:18 -07:00
parent d8973a67a7
commit 1ca0797893
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lens/list/list-ref-take-drop.rkt
View File

@ -87,5 +87,5 @@
(check-equal? (lens-set third-lens '(1 2 3 4 5) 'a) '(1 2 a 4 5))
(check-equal? (lens-set fourth-lens '(1 2 3 4 5) 'a) '(1 2 3 a 5))
(check-equal? (lens-set fifth-lens '(1 2 3 4 5) 'a) '(1 2 3 4 a))
(check-equal? (lens-transform* '(a (b c) (d e f)) (list-ref-nested-lens 2 1) symbol->string)
(check-equal? (lens-transform/list '(a (b c) (d e f)) (list-ref-nested-lens 2 1) symbol->string)
'(a (b c) (d "e" f))))

7
lens/struct.rkt
View File

@ -25,7 +25,6 @@
(define foo-b-lens (struct-lens foo b))
(define foo-c-lens (struct-lens foo c))
(define f (foo 1 2 3))
(check-equal? (lens-transform* f foo-a-lens (* 100 _)) (foo 100 2 3))
(check-equal? (lens-transform* f foo-b-lens (* 100 _)) (foo 1 200 3))
(check-equal? (lens-transform* f foo-c-lens (* 100 _)) (foo 1 2 300))
)
(check-equal? (lens-transform/list f foo-a-lens (* 100 _)) (foo 100 2 3))
(check-equal? (lens-transform/list f foo-b-lens (* 100 _)) (foo 1 200 3))
(check-equal? (lens-transform/list f foo-c-lens (* 100 _)) (foo 1 2 300)))