From 2c518f970ccc47a3e7e9f5c5a152f4c6bf6f29d4 Mon Sep 17 00:00:00 2001
From: Jack Firth <jackhfirth@gmail.com>
Date: Wed, 25 Feb 2015 13:02:17 -0800
Subject: [PATCH] Adjust lens-transform to play nicely with currying

---
 lenses/core.rkt     | 4 ++--
 lenses/lenses.scrbl | 6 +++---
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/lenses/core.rkt b/lenses/core.rkt
index 4936e97..70e47bb 100644
--- a/lenses/core.rkt
+++ b/lenses/core.rkt
@@ -55,12 +55,12 @@
 
 ;; Composing a lens with a function to make a value-sensitive setter
 
-(define (lens-transform lens v f)
+(define (lens-transform lens f v)
   (let-lens (view setter) (lens v)
     (setter (f view))))
 
 (module+ test
-  (check-equal? (lens-transform second-lens '(1 2 3) number->string) '(1 "2" 3)))
+  (check-equal? (lens-transform second-lens number->string '(1 2 3)) '(1 "2" 3)))
 
 ;; Lens composition
 
diff --git a/lenses/lenses.scrbl b/lenses/lenses.scrbl
index 5ca4521..115163f 100644
--- a/lenses/lenses.scrbl
+++ b/lenses/lenses.scrbl
@@ -77,8 +77,8 @@ source code: @url["https://github.com/jackfirth/lenses"]
 ]}
 
 @defproc[(lens-transform [lens (lens/c target/c view/c)]
-                         [target target/c]
-                         [transformer (-> view/c view/c)])
+                         [transformer (-> view/c view/c)]
+                         [target target/c])
          target/c]{
   Transforms the view of @racket[target] through the given @racket[lens]
   with the @racket[transformer] function. Equivalent to getting the
@@ -87,7 +87,7 @@ source code: @url["https://github.com/jackfirth/lenses"]
   to the return value of calling @racket[transformer] with the old
   view.
   @lenses-examples[
-    (lens-transform first-lens '(1 2 3) number->string)
+    (lens-transform first-lens number->string '(1 2 3))
 ]}
 
 @defproc[(lens-compose [lens proc] ...+) proc?]{