move string join

lens/private/compound/main.rkt

@@ -1,6 +1,6 @@
 #lang reprovide
 "compose.rkt"
 "identity.rkt"
-"join-string.rkt"
+;"join-string.rkt"
 "join-vector.rkt"
 "thrush.rkt"

lens/private/compound/main.scrbl

@@ -7,4 +7,4 @@
 @scribble-include/no-subsection["compose.scrbl"]
 @scribble-include/no-subsection["thrush.scrbl"]
 @scribble-include/no-subsection["join-vector.scrbl"]
-@scribble-include/no-subsection["join-string.scrbl"]
+@;scribble-include/no-subsection["join-string.scrbl"]

lens/private/if.rkt

@@ -11,7 +11,7 @@
                      syntax/parse
                      ))
 (module+ test
-  (require rackunit lens/private/list/main lens/private/vector/main lens/private/string))
+  (require rackunit lens/private/list/main lens/private/vector/main lens/private/string/main))
 
 (define (lens-if pred lens1 lens2)
   (make-lens

lens/private/main.rkt

@@ -7,7 +7,7 @@ except-in
     "hash/main.rkt"
     "list/main.rkt"
     "stream.rkt"
-    "string.rkt"
+    "string/main.rkt"
     "struct/main.rkt"
     "vector/main.rkt"
   gen:lens

lens/private/scribblings/reference.scrbl

@@ -10,7 +10,7 @@
 @include-section["../hash/main.scrbl"]
 @include-section["../struct/main.scrbl"]
 @include-section["../vector/main.scrbl"]
-@include-section["../string.scrbl"]
+@include-section["../string/main.scrbl"]
 @include-section["../stream.scrbl"]
 @include-section["../dict.scrbl"]
 @include-section["../../applicable.scrbl"]

lens/private/string/join-string.rkt

@@ -5,7 +5,7 @@ require racket/contract
         "../base/main.rkt"
         "../util/immutable.rkt"
         "../util/rest-contract.rkt"
-        "compose.rkt"
+        "../compound/compose.rkt"
         "../list/join-list.rkt"
 
 module+ test

lens/private/string/main.rkt

@@ -0,0 +1,3 @@
+#lang reprovide
+"string.rkt"
+"join-string.rkt"

lens/private/string/main.scrbl

@@ -0,0 +1,6 @@
+#lang scribble/manual
+
+@title{String Lenses}
+
+@include-section["string.scrbl"]
+@include-section["join-string.scrbl"]

lens/private/string/string.rkt

@@ -11,12 +11,13 @@
           ))
 
 (require fancy-app
-         "base/main.rkt"
-         "util/immutable.rkt"
-         "compound/main.rkt")
+         "../base/main.rkt"
+         "../util/immutable.rkt"
+         "../string/join-string.rkt"
+         "../compound/main.rkt")
 
 (module+ test
-  (require rackunit "test-util/test-lens.rkt"))
+  (require rackunit "../test-util/test-lens.rkt"))
 
 
 (define (string-ref-lens i)

lens/private/string/string.scrbl

@@ -1,6 +1,6 @@
 #lang scribble/manual
 
-@(require "doc-util/main.rkt")
+@(require "../doc-util/main.rkt")
 
 @title[#:tag "strings-reference"]{String Lenses}