From 58f89e40b2851d334f239d629bbe28cf59f94876 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Sun, 16 Jun 2024 18:20:08 +0900 Subject: Import reexported modules --- algebraic-structures.private.list.alternative.scm | 3 ++- algebraic-structures.private.list.applicative.scm | 3 ++- algebraic-structures.private.list.monad.scm | 3 ++- algebraic-structures.private.list.zip.applicative.scm | 3 ++- algebraic-structures.private.stream.alternative.scm | 3 ++- algebraic-structures.private.stream.applicative.scm | 3 ++- algebraic-structures.private.stream.monad.scm | 3 ++- algebraic-structures.private.stream.zip.applicative.scm | 3 ++- algebraic-structures.private.vector.zip.applicative.scm | 3 ++- 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)) -- cgit v1.2.3