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/program/compositor/export.lux | 10 +++++-----
 stdlib/source/program/compositor/import.lux |  4 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/program/compositor')

diff --git a/stdlib/source/program/compositor/export.lux b/stdlib/source/program/compositor/export.lux
index 3588e1dde..90234875a 100644
--- a/stdlib/source/program/compositor/export.lux
+++ b/stdlib/source/program/compositor/export.lux
@@ -34,10 +34,10 @@
 (def: no_ownership
   tar.Ownership
   (let [commons (: tar.Owner
-                   [#tar.name tar.anonymous
-                    #tar.id tar.no_id])]
-    [#tar.user commons
-     #tar.group commons]))
+                   [tar.#name tar.anonymous
+                    tar.#id tar.no_id])]
+    [tar.#user commons
+     tar.#group commons]))
 
 (def: .public (library fs sources)
   (-> (file.System Async) (List Source) (Async (Try tar.Tar)))
@@ -51,7 +51,7 @@
                                   (text.replaced (\ fs separator) .module_separator)
                                   tar.path)
                          source_code (tar.content source_code)]
-                        (in {#tar.Normal [path
+                        (in {tar.#Normal [path
                                           (instant.of_millis +0)
                                           ($_ tar.and
                                               tar.read_by_owner tar.write_by_owner
diff --git a/stdlib/source/program/compositor/import.lux b/stdlib/source/program/compositor/import.lux
index 278e992fb..9b84e22c6 100644
--- a/stdlib/source/program/compositor/import.lux
+++ b/stdlib/source/program/compositor/import.lux
@@ -54,10 +54,10 @@
                          (\ ! each (|>> row.list
                                         (monad.mix ! (function (_ entry import)
                                                        (case entry
-                                                         {#tar.Normal [path instant mode ownership content]}
+                                                         {tar.#Normal [path instant mode ownership content]}
                                                          (let [path (tar.from_path path)]
                                                            (case (dictionary.has' path (tar.data content) import)
-                                                             {#try.Failure error}
+                                                             {try.#Failure error}
                                                              (exception.except ..duplicate [library path])
 
                                                              import'
-- 
cgit v1.2.3