diff options
| author | Eduardo Julian | 2015-08-04 20:38:02 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2015-08-04 20:38:02 -0400 |
| commit | 691b3e3174e01ed7d859f58442371328aefcfad4 (patch) | |
| tree | eb13bf0e6801ebe1a5771f6750d459d3cbd67ad6 /source/lux/meta/lux.lux | |
| parent | a8ac885a008f519816d747eca0f894ec9794e938 (diff) | |
- Struct definition no longer required prefixed members (now, it actually prohibits them).
Diffstat (limited to '')
| -rw-r--r-- | source/lux/meta/lux.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/lux/meta/lux.lux b/source/lux/meta/lux.lux index bc859b823..26513ed81 100644 --- a/source/lux/meta/lux.lux +++ b/source/lux/meta/lux.lux @@ -29,7 +29,7 @@ ## [Structures] (defstruct #export Lux/Functor (F;Functor Lux) - (def (F;map f fa) + (def (map f fa) (lambda [state] (case (fa state) (#;Left msg) @@ -39,11 +39,11 @@ (#;Right [state' (f a)]))))) (defstruct #export Lux/Monad (M;Monad Lux) - (def M;_functor Lux/Functor) - (def (M;wrap x) + (def _functor Lux/Functor) + (def (wrap x) (lambda [state] (#;Right [state x]))) - (def (M;join mma) + (def (join mma) (lambda [state] (case (mma state) (#;Left msg) |