Import reexported modules

9 files changed, 18 insertions, 9 deletions

diff --git a/algebraic-structures.private.list.alternative.scm b/algebraic-structures.private.list.alternative.scm
index a386e81..5395ded 100644
--- a/algebraic-structures.private.list.alternative.scm
+++ b/algebraic-structures.private.list.alternative.scm
@@ -1,6 +1,7 @@
 (module (algebraic-structures private list alternative) (alt empty)
   (import (except scheme map apply)
-          (chicken module))
+          (chicken module)
+          (only (algebraic-structures list applicative)))
   (reexport (algebraic-structures list applicative))
 
   (define empty '())
diff --git a/algebraic-structures.private.list.applicative.scm b/algebraic-structures.private.list.applicative.scm
index 6bbfad7..7b04b23 100644
--- a/algebraic-structures.private.list.applicative.scm
+++ b/algebraic-structures.private.list.applicative.scm
@@ -3,7 +3,8 @@
           (only (srfi 1) append! reverse!)
           (only (chicken base) assert cut)
           (only matchable match)
-          (chicken module))
+          (chicken module)
+          (only (algebraic-structures list functor)))
   (export pure map2)
   (reexport (algebraic-structures list functor))
 
diff --git a/algebraic-structures.private.list.monad.scm b/algebraic-structures.private.list.monad.scm
index 96da332..73eaf5c 100644
--- a/algebraic-structures.private.list.monad.scm
+++ b/algebraic-structures.private.list.monad.scm
@@ -1,7 +1,8 @@
 (module (algebraic-structures private list monad) (>>=)
   (import (except scheme map apply)
           (chicken module)
-          (only (srfi 1) append-map))
+          (only (srfi 1) append-map)
+          (only (algebraic-structures list applicative)))
   (reexport (algebraic-structures list applicative))
 
   (define (>>= xs f)
diff --git a/algebraic-structures.private.list.zip.applicative.scm b/algebraic-structures.private.list.zip.applicative.scm
index 8713ef9..41c9703 100644
--- a/algebraic-structures.private.list.zip.applicative.scm
+++ b/algebraic-structures.private.list.zip.applicative.scm
@@ -4,7 +4,8 @@
                   (fold srfi:fold)
                   (reduce srfi:reduce))
           (only (chicken base) assert)
-          (chicken module))
+          (chicken module)
+          (only (algebraic-structures list functor)))
   (export pure map2)
   (reexport (algebraic-structures list functor))
 
diff --git a/algebraic-structures.private.stream.alternative.scm b/algebraic-structures.private.stream.alternative.scm
index 0d90baa..e853f21 100644
--- a/algebraic-structures.private.stream.alternative.scm
+++ b/algebraic-structures.private.stream.alternative.scm
@@ -1,7 +1,8 @@
 (module (algebraic-structures private stream alternative) (alt empty)
   (import (except scheme map apply)
           (srfi 41)
-          (chicken module))
+          (chicken module)
+          (only (algebraic-structures stream applicative)))
   (reexport (algebraic-structures stream applicative))
 
   (define empty stream-null)
diff --git a/algebraic-structures.private.stream.applicative.scm b/algebraic-structures.private.stream.applicative.scm
index 0389ad9..ac67e0c 100644
--- a/algebraic-structures.private.stream.applicative.scm
+++ b/algebraic-structures.private.stream.applicative.scm
@@ -2,7 +2,8 @@
   (import scheme
           (srfi 41)
           (only (chicken base) cute)
-          (chicken module))
+          (chicken module)
+          (only (algebraic-structures stream functor)))
   (export pure map2)
   (reexport (algebraic-structures stream functor))
 
diff --git a/algebraic-structures.private.stream.monad.scm b/algebraic-structures.private.stream.monad.scm
index e22a396..e2cb580 100644
--- a/algebraic-structures.private.stream.monad.scm
+++ b/algebraic-structures.private.stream.monad.scm
@@ -1,7 +1,8 @@
 (module (algebraic-structures private stream monad) (>>=)
   (import (except scheme map apply)
           (chicken module)
-          (srfi 41))
+          (srfi 41)
+          (only (algebraic-structures stream applicative)))
   (reexport (algebraic-structures stream applicative))
 
   (define-stream (stream-append-map f strm)
diff --git a/algebraic-structures.private.stream.zip.applicative.scm b/algebraic-structures.private.stream.zip.applicative.scm
index 8d56006..ddd226d 100644
--- a/algebraic-structures.private.stream.zip.applicative.scm
+++ b/algebraic-structures.private.stream.zip.applicative.scm
@@ -1,7 +1,8 @@
 (module (algebraic-structures private stream zip applicative) ()
   (import scheme
           (srfi 41)
-          (chicken module))
+          (chicken module)
+          (only (algebraic-structures stream functor)))
   (export pure map2)
   (reexport (algebraic-structures stream functor))
 
diff --git a/algebraic-structures.private.vector.zip.applicative.scm b/algebraic-structures.private.vector.zip.applicative.scm
index 5e644e0..5dbb4aa 100644
--- a/algebraic-structures.private.vector.zip.applicative.scm
+++ b/algebraic-structures.private.vector.zip.applicative.scm
@@ -1,7 +1,8 @@
 (module (algebraic-structures private vector zip applicative) ()
   (import scheme
           (chicken module)
-          (only (srfi 133) vector-map))
+          (only (srfi 133) vector-map)
+          (only (algebraic-structures vector functor)))
   (export pure map2)
   (reexport (algebraic-structures vector functor))