diff options
| author | Eduardo Julian | 2022-02-24 17:47:27 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-02-24 17:47:27 -0400 |
| commit | 08518ba37d9094c5cc8683fc404c349e534b8dc9 (patch) | |
| tree | dc1f68559982af895a8b9a3c4055959a0f98e267 /stdlib/source/library/lux.lux | |
| parent | f27a91a7b67790272578692ea20e2d875dbb3d35 (diff) | |
Finishing the meta-compiler [Part 4]
Diffstat (limited to 'stdlib/source/library/lux.lux')
| -rw-r--r-- | stdlib/source/library/lux.lux | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 20122f66c..e46090db0 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -3910,12 +3910,17 @@ [[t_module t_name] ["" (..module_alias (list t_name) alias)]]) tags) - pattern (|> locals - (list#each (function (_ [slot binding]) - (list (symbol$ slot) - (symbol$ binding)))) - list#conjoint - tuple$)] + pattern (case locals + (^ (list [slot binding])) + (symbol$ binding) + + _ + (|> locals + (list#each (function (_ [slot binding]) + (list (symbol$ slot) + (symbol$ binding)))) + list#conjoint + tuple$))] (do meta_monad [enhanced_target (monad#mix meta_monad (function (_ [[_ m_local] m_type] enhanced_target) |