diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2018-11-15 16:44:39 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2018-11-15 16:44:39 +0100 |
| commit | 824e26642d0bdd71930aa2ae9544422437d971ce (patch) | |
| tree | f27fe259aebf5333c78a3dcaf9982bafacc7dcfc | |
| parent | Slight (control monad state) changes. (diff) | |
| download | scheme-monad-824e26642d0bdd71930aa2ae9544422437d971ce.tar.gz scheme-monad-824e26642d0bdd71930aa2ae9544422437d971ce.tar.xz | |
Change from constant to correct const.
| -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 |