From ca1584a5c87c2952af08c74ce80b1cb2a75a1d19 Mon Sep 17 00:00:00 2001 From: Masaya Tojo Date: Thu, 13 Jun 2024 02:11:07 +0900 Subject: Rename modules from ( ... make) to () --- examples/state.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'examples/state.scm') 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:) -- cgit v1.2.3