diff options
-rw-r--r-- | control/monad/procedures.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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 <pair>) (b <null>)) '()) (define-method (>> (a <null>) (b <pair>)) '()) (define-method (>> (a <pair>) (b <pair>)) - (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 |