From c9ea9a8750e6b7cca2d285d6c28a398182099a7d Mon Sep 17 00:00:00 2001
From: Masaya Tojo <masaya@tojo.tokyo>
Date: Fri, 14 Jun 2024 00:23:08 +0900
Subject: Fix import renaming in `(algebraic-structures monad)` functor

---
 algebraic-structures.monad.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'algebraic-structures.monad.scm')

diff --git a/algebraic-structures.monad.scm b/algebraic-structures.monad.scm
index 06bf3cb..80bde36 100644
--- a/algebraic-structures.monad.scm
+++ b/algebraic-structures.monad.scm
@@ -1,6 +1,9 @@
 (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))
+  (import (rename scheme
+                  (apply scheme:apply)
+                  (map scheme:map)
+                  (do scheme:do))
           M)
   (import-for-syntax matchable
                      (chicken syntax)
-- 
cgit v1.2.3