diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 18:25:25 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-18 18:25:25 +0100 |
commit | e41ade0f54d47ec3e07593f0763521aedc8ad390 (patch) | |
tree | ebc7cc7f7ea598b15b3d04728dd48767d597ed7f /data/either.scm | |
parent | Generilified return, monads now truly functors. (diff) | |
download | scheme-monad-e41ade0f54d47ec3e07593f0763521aedc8ad390.tar.gz scheme-monad-e41ade0f54d47ec3e07593f0763521aedc8ad390.tar.xz |
Assorted comments and cleanup.
Diffstat (limited to '')
-rw-r--r-- | data/either.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/data/either.scm b/data/either.scm index d6e0f73..c597a60 100644 --- a/data/either.scm +++ b/data/either.scm @@ -1,3 +1,5 @@ +;;; TODO UNFINISHED + (define-module (data either) #:use-module (oop goops) #:use-module (ice-9 match)) @@ -22,7 +24,7 @@ (define-method (>>= (this <either>) (proc <procedure>)) (case (slot-ref this 'dir) - ((left) this) + ((left) this) ((right) (match this (($ <either> slot) (proc slot)))))) (define return-either right) |