diff --git a/unstable/lens/arrow.rkt b/unstable/lens/arrow.rkt index ae6373c..40b91c7 100644 --- a/unstable/lens/arrow.rkt +++ b/unstable/lens/arrow.rkt @@ -5,10 +5,10 @@ lens-transform~> lens-view/thrush lens-set/thrush - lens-transform/thrush - ) + lens-transform/thrush) + +(require lens) -(require lens/base/main) (module+ test (require rackunit racket/list fancy-app)) @@ -38,5 +38,4 @@ (check-equal? (lens-set~> '((1 2) 3) first-lens second-lens #:-> 'two) '((1 two) 3)) (check-equal? (lens-transform~> '((1 2) 3) first-lens second-lens #:-> (* 100 _)) - '((1 200) 3)) - ) + '((1 200) 3))) diff --git a/unstable/lens/main.rkt b/unstable/lens/main.rkt index 94e5db4..a4ebac0 100644 --- a/unstable/lens/main.rkt +++ b/unstable/lens/main.rkt @@ -1,4 +1,4 @@ -#lang racket +#lang racket/base (require "syntax.rkt" "view-set.rkt" diff --git a/unstable/lens/sublist.rkt b/unstable/lens/sublist.rkt index 80c87f4..7bf5ab3 100644 --- a/unstable/lens/sublist.rkt +++ b/unstable/lens/sublist.rkt @@ -2,9 +2,9 @@ (provide sublist-lens) -(require lens/base/main - lens/list/main - ) +(require lens + lens/list/list-ref-take-drop) + (module+ test (require rackunit))