diff options
author | Eduardo Julian | 2022-04-07 03:27:59 -0400 |
---|---|---|
committer | Eduardo Julian | 2022-04-07 03:27:59 -0400 |
commit | 9224e54bf175ebe13c3fae42f04b649413c737e7 (patch) | |
tree | dab2b19f79e79020792ee0bfe0fb6abe522639a3 /stdlib/source/program/aedifex/parser.lux | |
parent | 7542b0addd9eaf01dd5f1c4c8a39b67f51a4bd06 (diff) |
De-sigil-ification: &
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/program/aedifex/parser.lux | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/stdlib/source/program/aedifex/parser.lux b/stdlib/source/program/aedifex/parser.lux index da92a59d9..094f60507 100644 --- a/stdlib/source/program/aedifex/parser.lux +++ b/stdlib/source/program/aedifex/parser.lux @@ -5,7 +5,7 @@ [monad {"+" do}]] [control ["[0]" maybe] - ["<>" parser + ["<>" parser ("[1]#[0]" functor) ["<[0]>" code {"+" Parser}]]] [data ["[0]" text] @@ -184,8 +184,13 @@ (def: runtime (Parser Runtime) - (<code>.tuple (<>.and <code>.text - (<>.some <code>.text)))) + (let [environment (<>#each (dictionary.of_list text.hash) + (<>.some (<code>.tuple (<>.and <code>.text <code>.text))))] + (<code>.tuple + ($_ <>.and + environment + <code>.text + (<>.some <code>.text))))) (def: profile (Parser /.Profile) |