Merge pull request #62 from jackfirth/fix-apply-lens-#40

Rename apply-lens to focus-lens
jackfirth · Jul 7, 2015 · ad7b16c · ad7b16c
2 parents a313abc + a4bed63
commit ad7b16c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lenses/core/base.rkt b/lenses/core/base.rkt
@@ -7,7 +7,7 @@
 
 (provide let-lens
          make-lens
-         apply-lens
+         focus-lens
          use-applicable-lenses!
          (rename-out [lens-struct? lens?]))
 
@@ -32,14 +32,14 @@
 (define (make-lens getter setter)
   (lens-struct getter setter))
 
-(define (apply-lens lens target)
+(define (focus-lens lens target)
   (match-define (lens-struct get set) lens)
   (values (get target)
           (set target _)))
 
 
 (define-syntax-rule (let-lens (view setter) lens-expr target-expr body ...)
-  (let-values ([(view setter) (apply-lens lens-expr target-expr)])
+  (let-values ([(view setter) (focus-lens lens-expr target-expr)])
     body ...))
 
 (module+ test

diff --git a/lenses/main.rkt b/lenses/main.rkt
@@ -13,7 +13,7 @@
    "list/main.rkt"
    "syntax.rkt"
    "syntax-keyword.rkt")
-  apply-lens
+  focus-lens
   drop-lens
   lens-set*
   lens-transform*