From 126a2efd394aeca5a9e68fc53d898cec5f26c7f3 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Wed, 8 Jul 2015 13:22:31 -0700 Subject: [PATCH] Add check for /list set precedence --- lens/base/view-set.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lens/base/view-set.rkt b/lens/base/view-set.rkt index dbbd6d4..16f304e 100644 --- a/lens/base/view-set.rkt +++ b/lens/base/view-set.rkt @@ -45,4 +45,8 @@ (check-equal? (lens-set/list '(1 2 3) first-lens 10 second-lens 20) - '(10 20 3))) + '(10 20 3)) + (check-equal? (lens-set/list '(1 2 3) + first-lens 'a + first-lens 'b) + '(b 2 3)))