From 9224e54bf175ebe13c3fae42f04b649413c737e7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 7 Apr 2022 03:27:59 -0400
Subject: De-sigil-ification: &

---
 stdlib/source/program/aedifex/parser.lux | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/aedifex/parser.lux')

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)
-- 
cgit v1.2.3