diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2018-11-10 18:43:54 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2018-11-10 18:43:54 +0100 |
| commit | 2754eae6d0c66b2838dc7566904d920ce216dddc (patch) | |
| tree | 6a15ee7ee897e6b7aed4a5ef412a804516addf77 /data/optional.scm | |
| parent | Fix problem with do notation being really broken. (diff) | |
| download | scheme-monad-2754eae6d0c66b2838dc7566904d920ce216dddc.tar.gz scheme-monad-2754eae6d0c66b2838dc7566904d920ce216dddc.tar.xz | |
Fixed up examples.
Diffstat (limited to '')
| -rw-r--r-- | data/optional.scm | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/data/optional.scm b/data/optional.scm index a1968f0..e71c10d 100644 --- a/data/optional.scm +++ b/data/optional.scm @@ -5,8 +5,8 @@ #:export (nothing just nothing? just? return-optional) - #:re-export (>>=) - ) + ;; TODO is this reexport needed? + #:re-export (>>=)) (define-class <optional> () (slot #:init-value #f @@ -40,8 +40,3 @@ ((just? this) (match this (($ <optional> slot) (proc slot)))))) - -#; -(define-method (mappend (a <optional>) (b <optional>)) - (match a - (($ )))) |