diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2018-11-10 23:57:53 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2018-11-10 23:57:53 +0100 |
| commit | d86d88b96cd7aba976ab58b909fd4eae48323bb0 (patch) | |
| tree | 0c7f93144cbe8c93a5a7c838165bd0e8a0cf24b0 /control/monad.scm | |
| parent | Add README. (diff) | |
| download | scheme-monad-d86d88b96cd7aba976ab58b909fd4eae48323bb0.tar.gz scheme-monad-d86d88b96cd7aba976ab58b909fd4eae48323bb0.tar.xz | |
Add >>, fix do to use it.
Diffstat (limited to 'control/monad.scm')
| -rw-r--r-- | control/monad.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/control/monad.scm b/control/monad.scm index 8bc46bf..f51289d 100644 --- a/control/monad.scm +++ b/control/monad.scm @@ -1,7 +1,7 @@ (define-module (control monad) #:use-module (control monad procedures) #:export (do) - #:re-export (>>=)) + #:re-export (>> >>=)) (define-syntax do (syntax-rules (<- let =) @@ -11,5 +11,5 @@ (>>= val (lambda (var) (do rest ...)))) ((_ a) a) ((_ token rest ...) - (begin token (do rest ...))))) + (>> token (do rest ...))))) |