From 824e26642d0bdd71930aa2ae9544422437d971ce Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 15 Nov 2018 16:44:39 +0100 Subject: Change from constant to correct const. --- control/monad/procedures.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/control/monad/procedures.scm b/control/monad/procedures.scm index 2c25d57..4be85ae 100644 --- a/control/monad/procedures.scm +++ b/control/monad/procedures.scm @@ -15,7 +15,7 @@ (define-method (>> (a ) (b )) '()) (define-method (>> (a ) (b )) '()) (define-method (>> (a ) (b )) - (concatenate! (map (constant b) a))) + (concatenate! (map (const b) a))) ;; bind :: Monad m => m a -> (a -> m b) -> m b ;; return :: Monad m => a -> m a -- cgit v1.2.3