From dda05bca0956af5e5b3875c4cc36e61aa04772e4 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 12 Sep 2021 00:07:08 -0400
Subject: Made the "#" character great again!

---
 stdlib/source/specification/compositor/common.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 31a1675f3..e5d3dab25 100644
--- a/stdlib/source/specification/compositor/common.lux
+++ b/stdlib/source/specification/compositor/common.lux
@@ -31,7 +31,7 @@
         (generation.State+ anchor expression directive)
         what)))
 
-(def: (runner (^slots [#platform.runtime #platform.phase #platform.host]) state)
+(def: (runner (^slots [platform.#runtime platform.#phase platform.#host]) state)
   (Instancer Runner)
   (function (_ evaluation_name expressionS)
     (do try.monad
@@ -42,7 +42,7 @@
                          (phase expressionS)))]
       (\ host evaluate! evaluation_name expressionG))))
 
-(def: (definer (^slots [#platform.runtime #platform.phase #platform.host])
+(def: (definer (^slots [platform.#runtime platform.#phase platform.#host])
                state)
   (Instancer Definer)
   (function (_ lux_name expressionS)
@@ -73,8 +73,8 @@
     [?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 (value@ [#directive.generation
-                                           #directive.state]
+           .let [generation_state (value@ [directive.#generation
+                                           directive.#state]
                                           directive_state)]]
           (in [[directive_bundle directive_state]
                (..runner platform generation_state)
-- 
cgit v1.2.3