aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2024-06-16 18:20:08 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2024-06-16 18:20:08 +0900
commit58f89e40b2851d334f239d629bbe28cf59f94876 (patch)
tree83104e67cc02ddb45d9de0f4517e880717a67b0e
parent14421f679050b49f96baee66c19fc7ff0d3184ed (diff)
Import reexported modules
-rw-r--r--algebraic-structures.private.list.alternative.scm3
-rw-r--r--algebraic-structures.private.list.applicative.scm3
-rw-r--r--algebraic-structures.private.list.monad.scm3
-rw-r--r--algebraic-structures.private.list.zip.applicative.scm3
-rw-r--r--algebraic-structures.private.stream.alternative.scm3
-rw-r--r--algebraic-structures.private.stream.applicative.scm3
-rw-r--r--algebraic-structures.private.stream.monad.scm3
-rw-r--r--algebraic-structures.private.stream.zip.applicative.scm3
-rw-r--r--algebraic-structures.private.vector.zip.applicative.scm3
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))