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/syntax.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/syntax.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/source/lux/meta/syntax.lux b/source/lux/meta/syntax.lux index beb2c9e7a..a69a89cb3 100644 --- a/source/lux/meta/syntax.lux +++ b/source/lux/meta/syntax.lux @@ -38,7 +38,7 @@ ## [Structures] (defstruct #export Parser/Functor (F;Functor Parser) - (def (F;map f ma) + (def (map f ma) (lambda [tokens] (case (ma tokens) #;None @@ -48,12 +48,12 @@ (#;Some [tokens' (f a)]))))) (defstruct #export Parser/Monad (M;Monad Parser) - (def M;_functor Parser/Functor) + (def _functor Parser/Functor) - (def (M;wrap x tokens) + (def (wrap x tokens) (#;Some [tokens x])) - (def (M;join mma) + (def (join mma) (lambda [tokens] (case (mma tokens) #;None |