Merge pull request #174 from jackfirth/159-move-identity-lens

Move identity, use sweet expressions more

lens/base/identity.rkt

@@ -1,22 +0,0 @@
-#lang racket/base
-
-(require racket/function
-         racket/contract/base
-         "base.rkt"
-         unstable/lens/isomorphism/base
-         )
-
-(module+ test
-  (require rackunit
-           "view-set.rkt"))
-
-(provide
- (contract-out [identity-lens lens?]))
-
-(define identity-lens
-  (isomorphism-lens identity identity))
-
-
-(module+ test
-  (check-equal? (lens-view identity-lens 'foo) 'foo)
-  (check-equal? (lens-set identity-lens 'foo 'bar) 'bar))

lens/base/main.rkt

@@ -1,13 +1,12 @@
-#lang racket/base
+#lang sweet-exp racket/base
 
-(require "base.rkt"
-         "view-set.rkt"
-         "transform.rkt"
-         "identity.rkt")
-
-(provide
- (all-from-out
+require
   "base.rkt"
   "view-set.rkt"
   "transform.rkt"
-  "identity.rkt"))
+
+provide
+  all-from-out
+    "base.rkt"
+    "view-set.rkt"
+    "transform.rkt"

lens/compound/compose.rkt

@@ -1,18 +1,20 @@
-#lang racket/base
+#lang sweet-exp racket/base
 
-(require racket/contract
-         racket/list
-         racket/match
-         fancy-app
-         "../base/main.rkt"
-         unstable/lens/isomorphism/base
-         )
+require racket/contract
+        racket/list
+        racket/match
+        fancy-app
+        "../base/main.rkt"
+        "../util/rest-contract.rkt"
+        "identity.rkt"
+        unstable/lens/isomorphism/base
 
-(module+ test
-  (require rackunit))
+module+ test
+  require rackunit
 
-(provide
- (contract-out [lens-compose (->* () () #:rest (listof lens?) lens?)]))
+provide
+  contract-out
+    lens-compose (rest-> lens? lens?)
 
 
 (define (lens-compose2 sub-lens super-lens)

lens/compound/identity.rkt

@@ -0,0 +1,22 @@
+#lang sweet-exp racket/base
+
+require racket/function
+        racket/contract/base
+        "../base/main.rkt"
+        unstable/lens/isomorphism/base
+
+module+ test
+  require rackunit
+          "../base/main.rkt"
+
+provide
+  contract-out
+    identity-lens lens?
+
+
+(define identity-lens
+  (isomorphism-lens identity identity))
+
+(module+ test
+  (check-equal? (lens-view identity-lens 'foo) 'foo)
+  (check-equal? (lens-set identity-lens 'foo 'bar) 'bar))

lens/compound/main.rkt

@@ -1,16 +1,19 @@
-#lang racket/base
+#lang sweet-exp racket/base
 
-(require "compose.rkt"
-         "join-hash.rkt"
-         "join-list.rkt"
-         "join-string.rkt"
-         "join-vector.rkt"
-         "thrush.rkt")
+require
+  "compose.rkt"
+  "identity.rkt"
+  "join-hash.rkt"
+  "join-list.rkt"
+  "join-string.rkt"
+  "join-vector.rkt"
+  "thrush.rkt"
 
-(provide (all-from-out
-          "compose.rkt"
-          "join-hash.rkt"
-          "join-list.rkt"
-          "join-string.rkt"
-          "join-vector.rkt"
-          "thrush.rkt"))
+provide
+  all-from-out
+    "compose.rkt"
+    "join-hash.rkt"
+    "join-list.rkt"
+    "join-string.rkt"
+    "join-vector.rkt"
+    "thrush.rkt"

lens/main.rkt

@@ -1,6 +1,6 @@
-#lang racket/base
+#lang sweet-exp racket/base
 
-(require
+require
   "base/main.rkt"
   "compound/main.rkt"
   "dict.rkt"
@@ -9,22 +9,22 @@
   "stream.rkt"
   "string.rkt"
   "struct/main.rkt"
-  "vector/main.rkt")
+  "vector/main.rkt"
 
-(provide
- (except-out
-  (all-from-out
-   "base/main.rkt"
-   "compound/main.rkt"
-   "dict.rkt"
-   "hash/main.rkt"
-   "list/main.rkt"
-   "stream.rkt"
-   "string.rkt"
-   "struct/main.rkt"
-   "vector/main.rkt")
-  gen:lens
-  focus-lens
-  drop-lens
-  take-lens
-  use-applicable-lenses!))
+provide
+  except-out
+    all-from-out
+      "base/main.rkt"
+      "compound/main.rkt"
+      "dict.rkt"
+      "hash/main.rkt"
+      "list/main.rkt"
+      "stream.rkt"
+      "string.rkt"
+      "struct/main.rkt"
+      "vector/main.rkt"
+    gen:lens
+    focus-lens
+    drop-lens
+    take-lens
+    use-applicable-lenses!