From 428d5c486da85a2de7b8a34602df7a626ae84842 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Wed, 8 Jul 2015 13:27:18 -0700 Subject: [PATCH] Fix hash lens test reference --- lens/hash.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lens/hash.rkt b/lens/hash.rkt index 96173ab..3d18c31 100644 --- a/lens/hash.rkt +++ b/lens/hash.rkt @@ -24,10 +24,10 @@ (let-lens [val ctxt] a (hash 'a 1 'b 2 'c 3) (check-equal? val 1) (check-equal? (ctxt 100) (hash 'a 100 'b 2 'c 3))) - (check-equal? (lens-transform* (hash 'a 1 'b 2 'c 3) a (* 10 _)) + (check-equal? (lens-transform/list (hash 'a 1 'b 2 'c 3) a (* 10 _)) (hash 'a 10 'b 2 'c 3)) (let-lens [val ctxt] a-x (hash 'a (hash 'x 1 'y 2) 'b (hash 'z 3)) (check-equal? val 1) (check-equal? (ctxt 100) (hash 'a (hash 'x 100 'y 2) 'b (hash 'z 3)))) - (check-equal? (lens-transform* (hash 'a (hash 'x 1 'y 2) 'b (hash 'z 3)) a-x (* 10 _)) + (check-equal? (lens-transform/list (hash 'a (hash 'x 1 'y 2) 'b (hash 'z 3)) a-x (* 10 _)) (hash 'a (hash 'x 10 'y 2) 'b (hash 'z 3))))