use more reprovide

lens/applicable.rkt

@@ -1,9 +1,9 @@
 #lang racket/base
 
-(provide (all-from-out "main.rkt"))
+(require reprovide/reprovide)
+(reprovide "main.rkt")
 
-(require "main.rkt"
-         (only-in "private/base/base.rkt" use-applicable-lenses!))
+(require (only-in "private/base/base.rkt" use-applicable-lenses!))
 
 (module+ test
   (require rackunit))

lens/private/base/base.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
-(require (except-in "gen-lens.rkt" gen-lens/c) "make-lens.rkt" "contract.rkt")
-(provide (all-from-out "gen-lens.rkt" "make-lens.rkt" "contract.rkt"))
+(require reprovide/reprovide)
+(reprovide (except-in "gen-lens.rkt" gen-lens/c) "make-lens.rkt" "contract.rkt")
 (module+ test
   (require rackunit racket/list)
   (define (set-first l v)

lens/private/doc-util/main.rkt

@@ -1,38 +1,19 @@
-#lang racket/base
-
-(require syntax/parse/define
-         "deflenses.rkt"
-         "include-sections.rkt"
-         "lenses-examples.rkt"
-         (for-label lens
-                    unstable/lens
-                    racket/base
-                    racket/match
-                    racket/list
-                    racket/vector
-                    racket/stream
-                    racket/set
-                    racket/contract)
-         (for-syntax racket/base
-                     syntax/parse
-                     racket/syntax))
-
-(provide (all-from-out
-          syntax/parse/define
-          "deflenses.rkt"
-          "include-sections.rkt"
-          "lenses-examples.rkt")
-         (for-label (all-from-out
-                     lens
-                     unstable/lens
-                     racket/base
-                     racket/match
-                     racket/list
-                     racket/vector
-                     racket/stream
-                     racket/set
-                     racket/contract))
-         (for-syntax (all-from-out
-                      racket/base
-                      syntax/parse
-                      racket/syntax)))
+#lang sweet-exp reprovide
+syntax/parse/define
+"deflenses.rkt"
+"include-sections.rkt"
+"lenses-examples.rkt"
+for-label
+  lens
+  unstable/lens
+  racket/base
+  racket/match
+  racket/list
+  racket/vector
+  racket/stream
+  racket/set
+  racket/contract
+for-syntax
+  racket/base
+  syntax/parse
+  racket/syntax

lens/private/util/reprovide.rkt

@@ -1,8 +0,0 @@
-#lang racket/base
-
-(provide reprovide)
-
-(define-syntax-rule (reprovide mod-path ...)
-  (begin
-    (require mod-path ...)
-    (provide (all-from-out mod-path ...))))

unstable/lens/syntax.rkt

@@ -1,7 +1,3 @@
-#lang racket/base
-
-(require "syntax/syntax.rkt"
-         "syntax/syntax-keyword.rkt")
-
-(provide (all-from-out "syntax/syntax.rkt"
-                       "syntax/syntax-keyword.rkt"))
+#lang reprovide
+"syntax/syntax.rkt"
+"syntax/syntax-keyword.rkt"