diff options
Diffstat (limited to 'data/either.scm')
-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) |