move join functions for lists and hash tables

lens/private/compound/join-string.rkt

@@ -6,7 +6,7 @@ require racket/contract
         "../util/immutable.rkt"
         "../util/rest-contract.rkt"
         "compose.rkt"
-        "join-list.rkt"
+        "../list/join-list.rkt"
 
 module+ test
   require rackunit

lens/private/compound/join-vector.rkt

@@ -6,7 +6,7 @@ require racket/contract
         "../util/immutable.rkt"
         "../util/rest-contract.rkt"
         "compose.rkt"
-        "join-list.rkt"
+        "../list/join-list.rkt"
 
 module+ test
   require rackunit

lens/private/compound/main.rkt

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

lens/private/compound/main.scrbl

@@ -6,7 +6,5 @@
 
 @scribble-include/no-subsection["compose.scrbl"]
 @scribble-include/no-subsection["thrush.scrbl"]
-@scribble-include/no-subsection["join-list.scrbl"]
-@scribble-include/no-subsection["join-hash.scrbl"]
 @scribble-include/no-subsection["join-vector.scrbl"]
 @scribble-include/no-subsection["join-string.scrbl"]

lens/private/hash/join-hash.rkt

@@ -8,7 +8,7 @@
          "../util/alternating-list.rkt"
          "../util/immutable.rkt"
          "../util/list-pair-contract.rkt"
-         "join-list.rkt")
+         "../list/join-list.rkt")
 
 (module+ test
   (require rackunit

lens/private/hash/main.rkt

@@ -2,3 +2,4 @@
 "nested.rkt"
 "pick.rkt"
 "ref.rkt"
+"join-hash.rkt"

lens/private/hash/main.scrbl

@@ -10,3 +10,4 @@
 @scribble-include/no-subsection["ref.scrbl"]
 @scribble-include/no-subsection["nested.scrbl"]
 @scribble-include/no-subsection["pick.scrbl"]
+@scribble-include/no-subsection["join-hash.scrbl"]

lens/private/hash/pick.rkt

@@ -3,7 +3,7 @@
 (require racket/contract
          racket/list
          "../base/main.rkt"
-         "../compound/join-hash.rkt"
+         "../hash/join-hash.rkt"
          "../util/immutable.rkt"
          "../util/rest-contract.rkt"
          "ref.rkt")

lens/private/list/join-assoc.rkt

@@ -6,14 +6,14 @@ provide
     lens-join/assoc (->* [] #:rest (listof2 any/c lens?) (lens/c any/c (listof pair?)))
 
 require lens/private/base/main
-        lens/private/compound/join-list
+        lens/private/list/join-list
         lens/private/list/assoc
         lens/private/util/alternating-list
         lens/private/util/list-pair-contract
         racket/match
         unstable/sequence
 module+ test
-  require rackunit lens/private/list/main
+  require rackunit lens/private/list/list-ref-take-drop
 
 (define (lens-join/assoc . ks/lenses)
   (define-values [keys lenses]

lens/private/list/join-list.scrbl

@@ -2,6 +2,8 @@
 
 @(require "../doc-util/main.rkt")
 
+@title{Joining lenses to view lists}
+
 @defproc[(lens-join/list [lens lens?] ...) lens?]{
   Constructs a lens that combines the view of each
   @racket[lens] into a list of views. This lens can

lens/private/list/main.rkt

@@ -3,4 +3,5 @@
 "list-ref-take-drop.rkt"
 "cadr-etc.rkt"
 "multi.rkt"
+"join-list.rkt"
 "assoc.rkt"

lens/private/list/main.scrbl

@@ -8,4 +8,5 @@
 
 @include-section["car-cdr.scrbl"]
 @include-section["list-ref-take-drop.scrbl"]
+@include-section["join-list.scrbl"]
 @include-section["assoc.scrbl"]

lens/private/list/multi.rkt

@@ -4,6 +4,7 @@
          "../base/main.rkt"
          "../compound/main.rkt"
          "../util/rest-contract.rkt"
+         "join-list.rkt"
          "list-ref-take-drop.rkt")
 
 (module+ test

unstable/lens/join-assoc.rkt

@@ -1,2 +1,2 @@
 #lang reprovide
-lens/private/compound/join-assoc
+lens/private/list/join-assoc