From 5b43546f97137ff24ab4801cf68e1bf4569f5003 Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Tue, 7 Jul 2015 09:10:26 -0400 Subject: [PATCH] rename applicable lens parameter fixes https://github.com/jackfirth/lens/issues/54 --- lens/core/base.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lens/core/base.rkt b/lens/core/base.rkt index dac749c..13b771a 100644 --- a/lens/core/base.rkt +++ b/lens/core/base.rkt @@ -12,15 +12,15 @@ (rename-out [lens-struct? lens?])) -(define lens-app-context? (make-parameter #f)) +(define lenses-applicable? (make-parameter #f)) (define (use-applicable-lenses!) - (lens-app-context? #t)) + (lenses-applicable? #t)) (struct lens-struct (get set) #:property prop:procedure (lambda (this target) - (if (lens-app-context?) + (if (lenses-applicable?) ((lens-struct-get this) target) (error "cannot apply a non-applicable lens as a function"))))