aboutsummaryrefslogtreecommitdiff
path: root/algebraic-structures.monad.scm
diff options
context:
space:
mode:
authorMasaya Tojo <masaya@tojo.tokyo>2024-06-14 00:13:01 +0900
committerMasaya Tojo <masaya@tojo.tokyo>2024-06-14 00:13:01 +0900
commitedb5f425b543a77b79a4ab110474f496e5d43724 (patch)
treeed43ccf0ac03c237bedcac85219593f13e31e5c7 /algebraic-structures.monad.scm
parent6c7ab94299b0996d2dbba5305f4e4f81d2405738 (diff)
Fix signatures of functor modules
Diffstat (limited to 'algebraic-structures.monad.scm')
-rw-r--r--algebraic-structures.monad.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/algebraic-structures.monad.scm b/algebraic-structures.monad.scm
index fd5ff82..06bf3cb 100644
--- a/algebraic-structures.monad.scm
+++ b/algebraic-structures.monad.scm
@@ -1,5 +1,5 @@
-(functor ((algebraic-structures monad) (M (pure map map2 >>=)))
- (pure map map2 >>= do)
+(functor ((algebraic-structures monad) (M (pure map1 map2 map apply >>=)))
+ (pure map1 map2 map apply >>= do)
(import (rename scheme (map scheme:map) (do scheme:do))
M)
(import-for-syntax matchable