From 5d4583aebd00adced10275b32ff1a93ab418be50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 28 Jul 2021 04:48:42 -0400
Subject: Re-named List's tags: Nil => End && Cons => Item

---
 stdlib/source/specification/compositor/common.lux | 32 +++++++++++------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'stdlib/source/specification/compositor/common.lux')

diff --git a/stdlib/source/specification/compositor/common.lux b/stdlib/source/specification/compositor/common.lux
index 33268ecde..0b7c7979a 100644
--- a/stdlib/source/specification/compositor/common.lux
+++ b/stdlib/source/specification/compositor/common.lux
@@ -33,32 +33,32 @@
 
 (def: (runner (^slots [#platform.runtime #platform.phase #platform.host]) state)
   (Instancer Runner)
-  (function (_ evaluation-name expressionS)
+  (function (_ evaluation_name expressionS)
     (do try.monad
       [expressionG (<| (phase.run state)
-                       generation.with-buffer
+                       generation.with_buffer
                        (do phase.monad
                          [_ runtime]
                          (phase expressionS)))]
-      (\ host evaluate! evaluation-name expressionG))))
+      (\ host evaluate! evaluation_name expressionG))))
 
 (def: (definer (^slots [#platform.runtime #platform.phase #platform.host])
                state)
   (Instancer Definer)
-  (function (_ lux-name expressionS)
+  (function (_ lux_name expressionS)
     (do try.monad
       [definitionG (<| (phase.run state)
-                       generation.with-buffer
+                       generation.with_buffer
                        (do phase.monad
                          [_ runtime
                           expressionG (phase expressionS)
-                          [host-name host-value host-directive] (generation.define! lux-name expressionG)
-                          _ (generation.learn lux-name host-name)]
-                         (phase (synthesis.constant lux-name))))]
+                          [host_name host_value host_directive] (generation.define! lux_name expressionG)
+                          _ (generation.learn lux_name host_name)]
+                         (phase (synthesis.constant lux_name))))]
       (\ host evaluate! "definer" definitionG))))
 
 (def: #export (executors target expander platform
-                         analysis-bundle generation-bundle directive-bundle
+                         analysis_bundle generation_bundle directive_bundle
                          program extender)
   (All [anchor expression directive]
     (-> Text Expander (Platform IO anchor expression directive)
@@ -70,12 +70,12 @@
                   Runner
                   Definer]))))
   (do io.monad
-    [?state (platform.initialize target expander analysis-bundle platform generation-bundle directive-bundle program extender)]
+    [?state (platform.initialize target expander analysis_bundle platform generation_bundle directive_bundle program extender)]
     (in (do try.monad
-          [[directive-bundle directive-state] ?state
-           #let [generation-state (get@ [#directive.generation
+          [[directive_bundle directive_state] ?state
+           #let [generation_state (get@ [#directive.generation
                                          #directive.state]
-                                        directive-state)]]
-          (in [[directive-bundle directive-state]
-               (..runner platform generation-state)
-               (..definer platform generation-state)])))))
+                                        directive_state)]]
+          (in [[directive_bundle directive_state]
+               (..runner platform generation_state)
+               (..definer platform generation_state)])))))
-- 
cgit v1.2.3