From c20155977bc23c2be19842cc065e4444b304ecce Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Tue, 11 Jun 2024 02:13:57 +0900 Subject: Rename from `algebraic-structs` to `algebraic-structures` --- examples/optional.scm | 12 ++++++------ examples/state.scm | 12 ++++++------ 2 files changed, 12 insertions(+), 12 deletions(-) (limited to 'examples') diff --git a/examples/optional.scm b/examples/optional.scm index e3f2eec..ff444de 100644 --- a/examples/optional.scm +++ b/examples/optional.scm @@ -46,13 +46,13 @@ [($ opt: x) (f x)] [($ opt:) (opt:none)]))) -(import (only (algebraic-structs functor make)) - (only (algebraic-structs applicative make)) - (only (algebraic-structs monad make))) +(import (only (algebraic-structures functor make)) + (only (algebraic-structures applicative make)) + (only (algebraic-structures monad make))) -(module (data optional functor) = ((algebraic-structs functor make) (data optional monad base))) -(module (data optional applicative) = ((algebraic-structs applicative make) (data optional monad base))) -(module (data optional monad) = ((algebraic-structs monad make) (data optional monad base))) +(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))) (import (prefix (data optional) opt:) (prefix (data optional functor) opt:) diff --git a/examples/state.scm b/examples/state.scm index b649859..b1aedc6 100644 --- a/examples/state.scm +++ b/examples/state.scm @@ -35,12 +35,12 @@ [(x* . st**) ((f x) st*)]) (cons x* st**))))) -(import (only (algebraic-structs functor make)) - (only (algebraic-structs applicative make)) - (only (algebraic-structs monad make))) -(module (data state functor) = ((algebraic-structs functor make) (data state))) -(module (data state applicative) = ((algebraic-structs applicative make) (data state))) -(module (data state monad) = ((algebraic-structs monad make) (data state))) +(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 (prefix (data state) st:) (prefix (data state functor) st:) -- cgit v1.2.3