Merge 5b43546 into ccd81c5

jackfirth · Jul 7, 2015 · 7f907c7 · 7f907c7
2 parents ccd81c5 + 5b43546
commit 7f907c7
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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"))))