diff options
Diffstat (limited to 'stdlib/source/library/lux/control/remember.lux')
| -rw-r--r-- | stdlib/source/library/lux/control/remember.lux | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/stdlib/source/library/lux/control/remember.lux b/stdlib/source/library/lux/control/remember.lux index c2cc446ed..d8a6dc8a7 100644 --- a/stdlib/source/library/lux/control/remember.lux +++ b/stdlib/source/library/lux/control/remember.lux @@ -41,7 +41,7 @@ [raw <c>.text] (case (\ date.codec decode raw) (#try.Success date) - (wrap date) + (in date) (#try.Failure message) (<>.failure message))))) @@ -50,24 +50,24 @@ (let [now (io.run instant.now) today (instant.date now)] (if (date\< deadline today) - (wrap (case focus - (#.Some focus) - (list focus) + (in (case focus + (#.Some focus) + (list focus) - #.None - (list))) + #.None + (list))) (meta.failure (exception.construct ..must_remember [deadline today message focus]))))) (template [<name> <message>] [(syntax: #export (<name> {deadline ..deadline} {message <c>.text} {focus (<>.maybe <c>.any)}) - (wrap (list (` (..remember (~ (code.text (%.date deadline))) - (~ (code.text (format <message> " " message))) - (~+ (case focus - (#.Some focus) - (list focus) + (in (list (` (..remember (~ (code.text (%.date deadline))) + (~ (code.text (format <message> " " message))) + (~+ (case focus + (#.Some focus) + (list focus) - #.None - (list))))))))] + #.None + (list))))))))] [to_do "TODO"] [fix_me "FIXME"] |