From a4bed638f74f6725b23c4ffa6bb2cdbad860d258 Mon Sep 17 00:00:00 2001 From: Jack Firth Date: Mon, 6 Jul 2015 17:11:46 -0700 Subject: [PATCH] Rename apply-lens to focus-lens --- lenses/core/base.rkt | 6 +++--- lenses/main.rkt | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/lenses/core/base.rkt b/lenses/core/base.rkt index a9f85d7..dac749c 100644 --- 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 index 3ba004a..2a60eb1 100644 --- 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*