diff options
| author | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-13 02:11:07 +0900 |
|---|---|---|
| committer | Masaya Tojo <masaya@tojo.tokyo> | 2024-06-13 02:11:07 +0900 |
| commit | ca1584a5c87c2952af08c74ce80b1cb2a75a1d19 (patch) | |
| tree | 6a6f5ebde7bb00f8bd74501ecac563c5a1dc51f6 /examples | |
| parent | 653b204b583da363a97464960a00f1bd0dbed865 (diff) | |
Rename modules from (<feature name> ... make) to (<feature name>)
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/optional.scm | 12 | ||||
| -rw-r--r-- | examples/state.scm | 12 |
2 files changed, 12 insertions, 12 deletions
diff --git a/examples/optional.scm b/examples/optional.scm index ff444de..a15fe16 100644 --- a/examples/optional.scm +++ b/examples/optional.scm @@ -46,13 +46,13 @@ [($ opt:<some> x) (f x)] [($ opt:<none>) (opt:none)]))) -(import (only (algebraic-structures functor make)) - (only (algebraic-structures applicative make)) - (only (algebraic-structures monad make))) +(import (only (algebraic-structures functor)) + (only (algebraic-structures applicative)) + (only (algebraic-structures monad))) -(module (data optional functor) = ((algebraic-structures functor make) (data optional monad base))) -(module (data optional applicative) = ((algebraic-structures applicative make) (data optional monad base))) -(module (data optional monad) = ((algebraic-structures monad make) (data optional monad base))) +(module (data optional functor) = ((algebraic-structures functor) (data optional monad base))) +(module (data optional applicative) = ((algebraic-structures applicative) (data optional monad base))) +(module (data optional monad) = ((algebraic-structures monad) (data optional monad base))) (import (prefix (data optional) opt:) (prefix (data optional functor) opt:) diff --git a/examples/state.scm b/examples/state.scm index b1aedc6..21efc1b 100644 --- a/examples/state.scm +++ b/examples/state.scm @@ -35,12 +35,12 @@ [(x* . st**) ((f x) st*)]) (cons x* st**))))) -(import (only (algebraic-structures functor make)) - (only (algebraic-structures applicative make)) - (only (algebraic-structures monad make))) -(module (data state functor) = ((algebraic-structures functor make) (data state))) -(module (data state applicative) = ((algebraic-structures applicative make) (data state))) -(module (data state monad) = ((algebraic-structures monad make) (data state))) +(import (only (algebraic-structures functor)) + (only (algebraic-structures applicative)) + (only (algebraic-structures monad))) +(module (data state functor) = ((algebraic-structures functor) (data state))) +(module (data state applicative) = ((algebraic-structures applicative) (data state))) +(module (data state monad) = ((algebraic-structures monad) (data state))) (import (prefix (data state) st:) (prefix (data state functor) st:) |