use #lang reprovide

info.rkt

@@ -15,6 +15,7 @@
     "alexis-util"
     "sweet-exp"
     "kw-make-struct"
+    "reprovide-lang"
     "scribble-lib"))
 
 

lens/main.rkt

@@ -1,7 +1,2 @@
-#lang sweet-exp racket/base
-
-require "private/main.rkt"
-
-provide
-  all-from-out
-    "private/main.rkt"
+#lang reprovide
+"private/main.rkt"

lens/private/base/main.rkt

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

lens/private/compound/main.rkt

@@ -1,20 +1,8 @@
-#lang sweet-exp racket/base
-
-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"
-    "identity.rkt"
-    "join-hash.rkt"
-    "join-list.rkt"
-    "join-string.rkt"
-    "join-vector.rkt"
-    "thrush.rkt"
+#lang reprovide
+"compose.rkt"
+"identity.rkt"
+"join-hash.rkt"
+"join-list.rkt"
+"join-string.rkt"
+"join-vector.rkt"
+"thrush.rkt"

lens/private/hash/main.rkt

@@ -1,12 +1,4 @@
-#lang racket/base
-
-
-(require "nested.rkt"
-         "pick.rkt"
-         "ref.rkt")
-
-
-(provide
- (all-from-out "nested.rkt"
-               "pick.rkt"
-               "ref.rkt"))
+#lang reprovide
+"nested.rkt"
+"pick.rkt"
+"ref.rkt"

lens/private/list/main.rkt

@@ -1,14 +1,6 @@
-#lang racket/base
-
-(require "car-cdr.rkt"
-         "list-ref-take-drop.rkt"
-         "cadr-etc.rkt"
-         "multi.rkt"
-         "assoc.rkt")
-
-(provide (all-from-out
-          "car-cdr.rkt"
-          "list-ref-take-drop.rkt"
-          "cadr-etc.rkt"
-          "multi.rkt"
-          "assoc.rkt"))
+#lang reprovide
+"car-cdr.rkt"
+"list-ref-take-drop.rkt"
+"cadr-etc.rkt"
+"multi.rkt"
+"assoc.rkt"

lens/private/main.rkt

@@ -1,30 +1,17 @@
-#lang sweet-exp racket/base
-
-require
-  "base/main.rkt"
-  "compound/main.rkt"
-  "dict.rkt"
-  "hash/main.rkt"
-  "list/main.rkt"
-  "stream.rkt"
-  "string.rkt"
-  "struct/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!
+#lang sweet-exp reprovide
+except-in
+  combine-in
+    "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!

lens/private/struct/main.rkt

@@ -1,8 +1,3 @@
-#lang racket/base
-
-(require "field.rkt"
-         "struct.rkt")
-
-(provide
- (all-from-out "field.rkt"
-               "struct.rkt"))
+#lang reprovide
+"field.rkt"
+"struct.rkt"

lens/private/vector/main.rkt

@@ -1,12 +1,4 @@
-#lang racket/base
-
-
-(require "nested.rkt"
-         "pick.rkt"
-         "ref.rkt")
-
-
-(provide
- (all-from-out "nested.rkt"
-               "pick.rkt"
-               "ref.rkt"))
+#lang reprovide
+"nested.rkt"
+"pick.rkt"
+"ref.rkt"

unstable/lens.rkt

@@ -1,5 +1,2 @@
-#lang racket/base
-
-(require "lens/main.rkt")
-
-(provide (all-from-out "lens/main.rkt"))
+#lang reprovide
+"lens/main.rkt"

unstable/lens/isomorphism.rkt

@@ -1,10 +1,3 @@
-#lang sweet-exp racket/base
-
-require
-  "isomorphism/base.rkt"
-  "isomorphism/data.rkt"
-
-provide
-  all-from-out
-    "isomorphism/base.rkt"
-    "isomorphism/data.rkt"
+#lang reprovide
+"isomorphism/base.rkt"
+"isomorphism/data.rkt"

unstable/lens/main.rkt

@@ -1,16 +1,13 @@
-#lang sweet-exp racket/base
-require lens/private/util/reprovide
-reprovide
-  "arrow.rkt"
-  "if.rkt"
-  "isomorphism.rkt"
-  "mapper.rkt"
-  "match.rkt"
-  "set-filterer.rkt"
-  "string-split.rkt"
-  "struct-join.rkt"
-  "struct-nested.rkt"
-  "sublist.rkt"
-  "syntax.rkt"
-  "view-set.rkt"
-
+#lang reprovide
+"arrow.rkt"
+"if.rkt"
+"isomorphism.rkt"
+"mapper.rkt"
+"match.rkt"
+"set-filterer.rkt"
+"string-split.rkt"
+"struct-join.rkt"
+"struct-nested.rkt"
+"sublist.rkt"
+"syntax.rkt"
+"view-set.rkt"