Made the "#" character great again!

1 files changed, 64 insertions, 64 deletions

diff --git a/stdlib/source/test/lux/data/format/tar.lux b/stdlib/source/test/lux/data/format/tar.lux
index 835ce822e..1ed6821f6 100644
--- a/stdlib/source/test/lux/data/format/tar.lux
+++ b/stdlib/source/test/lux/data/format/tar.lux
@@ -47,27 +47,27 @@
            (`` ($_ _.and
                    (_.cover [/.path /.from_path]
                             (case (/.path expected)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               (text\= expected
                                       (/.from_path actual))
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               false))
                    (_.cover [/.no_path]
                             (text\= "" (/.from_path /.no_path)))
                    (_.cover [/.path_size /.path_is_too_long]
                             (case (/.path invalid)
-                              {#try.Success _}
+                              {try.#Success _}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.path_is_too_long error)))
                    (_.cover [/.not_ascii]
                             (case (/.path not_ascii)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.not_ascii error)))
                    )))))
 
@@ -82,25 +82,25 @@
            (`` ($_ _.and
                    (_.cover [/.name /.from_name]
                             (case (/.name expected)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               (text\= expected
                                       (/.from_name actual))
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               false))
                    (_.cover [/.name_size /.name_is_too_long]
                             (case (/.name invalid)
-                              {#try.Success _}
+                              {try.#Success _}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.name_is_too_long error)))
                    (_.cover [/.not_ascii]
                             (case (/.name not_ascii)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.not_ascii error)))
                    )))))
 
@@ -113,18 +113,18 @@
            (`` ($_ _.and
                    (_.cover [/.small /.from_small]
                             (case (/.small expected)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               (n.= expected
                                    (/.from_small actual))
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               false))
                    (_.cover [/.small_limit /.not_a_small_number]
                             (case (/.small invalid)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.not_a_small_number error)))
                    )))))
 
@@ -137,18 +137,18 @@
            (`` ($_ _.and
                    (_.cover [/.big /.from_big]
                             (case (/.big expected)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               (n.= expected
                                    (/.from_big actual))
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               false))
                    (_.cover [/.big_limit /.not_a_big_number]
                             (case (/.big invalid)
-                              {#try.Success actual}
+                              {try.#Success actual}
                               false
 
-                              {#try.Failure error}
+                              {try.#Failure error}
                               (exception.match? /.not_a_big_number error)))
                    )))))
 
@@ -183,8 +183,8 @@
                                         false)))
                                 (try.else false)))]
 
-                  [/.Symbolic_Link #/.Symbolic_Link]
-                  [/.Directory #/.Directory]
+                  [/.Symbolic_Link /.#Symbolic_Link]
+                  [/.Directory /.#Directory]
                   ))
             (_.for [/.File /.Content /.content /.data]
                    ($_ _.and
@@ -196,10 +196,10 @@
                                               tar (|> (row.row {<tag> [expected_path
                                                                        expected_moment
                                                                        /.none
-                                                                       [#/.user [#/.name /.anonymous
-                                                                                 #/.id /.no_id]
-                                                                        #/.group [#/.name /.anonymous
-                                                                                  #/.id /.no_id]]
+                                                                       [/.#user [/.#name /.anonymous
+                                                                                 /.#id /.no_id]
+                                                                        /.#group [/.#name /.anonymous
+                                                                                  /.#id /.no_id]]
                                                                        expected_content]})
                                                       (format.result /.writer)
                                                       (<b>.result /.parser))]
@@ -218,8 +218,8 @@
                                                    false)))
                                            (try.else false)))]
 
-                             [/.Normal #/.Normal]
-                             [/.Contiguous #/.Contiguous]
+                             [/.Normal /.#Normal]
+                             [/.Contiguous /.#Contiguous]
                              ))))))))
 
 (def: random_mode
@@ -251,18 +251,18 @@
                             (|> (do try.monad
                                   [path (/.path path)
                                    content (/.content (binary.empty 0))
-                                   tar (|> (row.row {#/.Normal [path
+                                   tar (|> (row.row {/.#Normal [path
                                                                 (instant.of_millis +0)
                                                                 expected_mode
-                                                                [#/.user [#/.name /.anonymous
-                                                                          #/.id /.no_id]
-                                                                 #/.group [#/.name /.anonymous
-                                                                           #/.id /.no_id]]
+                                                                [/.#user [/.#name /.anonymous
+                                                                          /.#id /.no_id]
+                                                                 /.#group [/.#name /.anonymous
+                                                                           /.#id /.no_id]]
                                                                 content]})
                                            (format.result /.writer)
                                            (<b>.result /.parser))]
                                   (in (case (row.list tar)
-                                        (^ (list {#/.Normal [_ _ actual_mode _ _]}))
+                                        (^ (list {/.#Normal [_ _ actual_mode _ _]}))
                                         (n.= (/.mode expected_mode)
                                              (/.mode actual_mode))
 
@@ -274,18 +274,18 @@
                                    (|> (do try.monad
                                          [path (/.path path)
                                           content (/.content (binary.empty 0))
-                                          tar (|> (row.row {#/.Normal [path
+                                          tar (|> (row.row {/.#Normal [path
                                                                        (instant.of_millis +0)
                                                                        <expected_mode>
-                                                                       [#/.user [#/.name /.anonymous
-                                                                                 #/.id /.no_id]
-                                                                        #/.group [#/.name /.anonymous
-                                                                                  #/.id /.no_id]]
+                                                                       [/.#user [/.#name /.anonymous
+                                                                                 /.#id /.no_id]
+                                                                        /.#group [/.#name /.anonymous
+                                                                                  /.#id /.no_id]]
                                                                        content]})
                                                   (format.result /.writer)
                                                   (<b>.result /.parser))]
                                          (in (case (row.list tar)
-                                               (^ (list {#/.Normal [_ _ actual_mode _ _]}))
+                                               (^ (list {/.#Normal [_ _ actual_mode _ _]}))
                                                (n.= (/.mode <expected_mode>)
                                                     (/.mode actual_mode))
 
@@ -324,39 +324,39 @@
            ($_ _.and
                (_.cover [/.name_size /.name_is_too_long]
                         (case (/.name invalid)
-                          {#try.Success _}
+                          {try.#Success _}
                           false
 
-                          {#try.Failure error}
+                          {try.#Failure error}
                           (exception.match? /.name_is_too_long error)))
                (_.cover [/.not_ascii]
                         (case (/.name not_ascii)
-                          {#try.Success actual}
+                          {try.#Success actual}
                           false
 
-                          {#try.Failure error}
+                          {try.#Failure error}
                           (exception.match? /.not_ascii error)))
                (_.cover [/.Name /.name /.from_name]
                         (|> (do try.monad
                               [path (/.path path)
                                content (/.content (binary.empty 0))
                                expected (/.name expected)
-                               tar (|> (row.row {#/.Normal [path
+                               tar (|> (row.row {/.#Normal [path
                                                             (instant.of_millis +0)
                                                             /.none
-                                                            [#/.user [#/.name expected
-                                                                      #/.id /.no_id]
-                                                             #/.group [#/.name /.anonymous
-                                                                       #/.id /.no_id]]
+                                                            [/.#user [/.#name expected
+                                                                      /.#id /.no_id]
+                                                             /.#group [/.#name /.anonymous
+                                                                       /.#id /.no_id]]
                                                             content]})
                                        (format.result /.writer)
                                        (<b>.result /.parser))]
                               (in (case (row.list tar)
-                                    (^ (list {#/.Normal [_ _ _ actual_ownership _]}))
+                                    (^ (list {/.#Normal [_ _ _ actual_ownership _]}))
                                     (and (text\= (/.from_name expected)
-                                                 (/.from_name (value@ [#/.user #/.name] actual_ownership)))
+                                                 (/.from_name (value@ [/.#user /.#name] actual_ownership)))
                                          (text\= (/.from_name /.anonymous)
-                                                 (/.from_name (value@ [#/.group #/.name] actual_ownership))))
+                                                 (/.from_name (value@ [/.#group /.#name] actual_ownership))))
                                     
                                     _
                                     false)))
@@ -365,26 +365,26 @@
                         (|> (do try.monad
                               [path (/.path path)
                                content (/.content (binary.empty 0))
-                               tar (|> (row.row {#/.Normal [path
+                               tar (|> (row.row {/.#Normal [path
                                                             (instant.of_millis +0)
                                                             /.none
-                                                            [#/.user [#/.name /.anonymous
-                                                                      #/.id /.no_id]
-                                                             #/.group [#/.name /.anonymous
-                                                                       #/.id /.no_id]]
+                                                            [/.#user [/.#name /.anonymous
+                                                                      /.#id /.no_id]
+                                                             /.#group [/.#name /.anonymous
+                                                                       /.#id /.no_id]]
                                                             content]})
                                        (format.result /.writer)
                                        (<b>.result /.parser))]
                               (in (case (row.list tar)
-                                    (^ (list {#/.Normal [_ _ _ actual_ownership _]}))
+                                    (^ (list {/.#Normal [_ _ _ actual_ownership _]}))
                                     (and (text\= (/.from_name /.anonymous)
-                                                 (/.from_name (value@ [#/.user #/.name] actual_ownership)))
+                                                 (/.from_name (value@ [/.#user /.#name] actual_ownership)))
                                          (n.= (/.from_small /.no_id)
-                                              (/.from_small (value@ [#/.user #/.id] actual_ownership)))
+                                              (/.from_small (value@ [/.#user /.#id] actual_ownership)))
                                          (text\= (/.from_name /.anonymous)
-                                                 (/.from_name (value@ [#/.group #/.name] actual_ownership)))
+                                                 (/.from_name (value@ [/.#group /.#name] actual_ownership)))
                                          (n.= (/.from_small /.no_id)
-                                              (/.from_small (value@ [#/.group #/.id] actual_ownership))))
+                                              (/.from_small (value@ [/.#group /.#id] actual_ownership))))
                                     
                                     _
                                     false)))
@@ -407,10 +407,10 @@
             (_.cover [/.invalid_end_of_archive]
                      (let [dump (format.result /.writer row.empty)]
                        (case (<b>.result /.parser (binary\composite dump dump))
-                         {#try.Success _}
+                         {try.#Success _}
                          false
                          
-                         {#try.Failure error}
+                         {try.#Failure error}
                          (exception.match? /.invalid_end_of_archive error))))
             
             ..path