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