aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2024-06-11 02:13:57 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2024-06-11 02:13:57 +0900
commitc20155977bc23c2be19842cc065e4444b304ecce (patch)
tree834bb05fb78995e5fd32721630cad9a3742c3a47 /examples
parent552cd6c999f3e44b13be88e45c4a8cb391eb40cf (diff)
Rename from `algebraic-structs` to `algebraic-structures`
Diffstat (limited to 'examples')
-rw-r--r--examples/optional.scm12
-rw-r--r--examples/state.scm12
2 files changed, 12 insertions, 12 deletions
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:<some> x) (f x)]
[($ opt:<none>) (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:)