diff options
| author | Eduardo Julian | 2017-10-31 01:53:56 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-10-31 01:53:56 -0400 |
| commit | e0f63b0cfda4d7dd0d233d13ce88b5da889dea02 (patch) | |
| tree | 77a6a0db4fb096715743961d2efe0e5df256a293 /stdlib/source/lux/meta/syntax.lux | |
| parent | 89f165331e97d6f0814238fbc7686daac3aa4888 (diff) | |
- Now, all special forms are handled as procedures.
- "lux case" now takes its branches as a non-empty record.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/meta/syntax.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/lux/meta/syntax.lux b/stdlib/source/lux/meta/syntax.lux index dd10d7123..4574b9f5d 100644 --- a/stdlib/source/lux/meta/syntax.lux +++ b/stdlib/source/lux/meta/syntax.lux @@ -287,11 +287,11 @@ ((~' wrap) (do meta;Monad<Meta> [] (~ body)))))) - (#E;Success (~ g!body)) - ((~ g!body) (~ g!state)) + {(#E;Success (~ g!body)) + ((~ g!body) (~ g!state)) - (#E;Error (~ g!msg)) - (#E;Error (text.join-with ": " (list (~ error-msg) (~ g!msg))))))))))) + (#E;Error (~ g!msg)) + (#E;Error (text.join-with ": " (list (~ error-msg) (~ g!msg))))}))))))) _ (meta;fail "Wrong syntax for syntax:")))) |