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/runtime.lux | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/runtime.lux b/stdlib/source/program/aedifex/runtime.lux
index 57d18d265..7ba73519d 100644
--- a/stdlib/source/program/aedifex/runtime.lux
+++ b/stdlib/source/program/aedifex/runtime.lux
@@ -8,7 +8,8 @@
     ["[0]" text
      ["%" format {"+" format}]]
     [collection
-     ["[0]" list ("[1]#[0]" monoid)]]]
+     ["[0]" list ("[1]#[0]" monoid)]
+     ["[0]" dictionary {"+" Dictionary}]]]
    [macro
     ["[0]" template]]
    [world
@@ -16,28 +17,30 @@
 
 (type: .public Runtime
   (Record
-   [#program Text
+   [#environment (Dictionary Text Text)
+    #program Text
     #parameters (List Text)]))
 
 (def: .public equivalence
   (Equivalence Runtime)
   ($_ product.equivalence
+      (dictionary.equivalence text.equivalence)
       text.equivalence
       (list.equivalence text.equivalence)
       ))
 
-(template [<name> <command> <parameters>]
+(template [<name> <command> <environment> <parameters>]
   [(def: .public <name>
      Runtime
-     [#program <command>
+     [#environment (dictionary.of_list text.hash (`` (list (~~ (template.spliced <environment>)))))
+      #program <command>
       #parameters (`` (list (~~ (template.spliced <parameters>))))])]
 
-  [default_java "java" ["--add-opens" "java.base/java.lang=ALL-UNNAMED" "-jar"]]
-  [default_js "node" ["--stack_size=8192"]]
-  [default_python "python3" []]
-  [default_lua "lua" []]
-  ... [default_ruby "RUBY_THREAD_VM_STACK_SIZE=15700000 ruby" []]
-  [default_ruby "ruby" []]
+  [default_java "java" [] ["--add-opens" "java.base/java.lang=ALL-UNNAMED" "-jar"]]
+  [default_js "node" [] ["--stack_size=8192"]]
+  [default_python "python3" [] []]
+  [default_lua "lua" [] []]
+  [default_ruby "ruby" [["RUBY_THREAD_VM_STACK_SIZE" "15700000"]] []]
   )
 
 (def: .public (for runtime path)
-- 
cgit v1.2.3