diff --git a/lens/list/list-ref-take-drop.rkt b/lens/list/list-ref-take-drop.rkt index 384d5a4..775a886 100644 --- a/lens/list/list-ref-take-drop.rkt +++ b/lens/list/list-ref-take-drop.rkt @@ -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)))) diff --git a/lens/struct.rkt b/lens/struct.rkt index dc2260a..f0ec22e 100644 --- a/lens/struct.rkt +++ b/lens/struct.rkt @@ -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)))