De-taggification | part 1

3 files changed, 66 insertions, 66 deletions

diff --git a/stdlib/source/test/lux/ffi.jvm.lux b/stdlib/source/test/lux/ffi.jvm.lux
index 97ecdb7a4..7557f7f9f 100644
--- a/stdlib/source/test/lux/ffi.jvm.lux
+++ b/stdlib/source/test/lux/ffi.jvm.lux
@@ -231,7 +231,7 @@
    (actual0 [] java/lang/Long)])
 
 (/.interface: test/TestInterface1
-  ([] actual1 [java/lang/Boolean] java/lang/Long #throws [java/lang/Throwable]))
+  ([] actual1 [java/lang/Boolean] java/lang/Long "throws" [java/lang/Throwable]))
 
 (/.import: test/TestInterface1
   ["#::."
@@ -280,7 +280,7 @@
                       (test/TestInterface1
                        [] (actual1 self {throw? java/lang/Boolean})
                        java/lang/Long
-                       #throws [java/lang/Throwable]
+                       "throws" [java/lang/Throwable]
                        (if (:as Bit throw?)
                          (panic! "YOLO")
                          (:as java/lang/Long
@@ -340,12 +340,12 @@
                   example/3!
                   example/4!))))
 
-(/.class: #final test/TestClass0 [test/TestInterface0]
+(/.class: "final" test/TestClass0 [test/TestInterface0]
   ... Fields
-  (#private value java/lang/Long)
+  ("private" value java/lang/Long)
   ... Constructors
-  (#public [] (new self {value java/lang/Long}) []
-           (:= ::value value))
+  ("public" [] (new self {value java/lang/Long}) []
+   (:= ::value value))
   ... Methods
   (test/TestInterface0 [] (actual0 self) java/lang/Long
                        ::value))
@@ -354,14 +354,14 @@
   ["#::."
    (new [java/lang/Long])])
 
-(/.class: #final test/TestClass1 [test/TestInterface1]
+(/.class: "final" test/TestClass1 [test/TestInterface1]
   ... Fields
-  (#private value java/lang/Long)
+  ("private" value java/lang/Long)
   ... Constructors
-  (#public [] (new self {value java/lang/Long}) []
-           (:= ::value value))
+  ("public" [] (new self {value java/lang/Long}) []
+   (:= ::value value))
   ... Methods
-  (test/TestInterface1 [] (actual1 self {throw? java/lang/Boolean}) java/lang/Long #throws [java/lang/Throwable]
+  (test/TestInterface1 [] (actual1 self {throw? java/lang/Boolean}) java/lang/Long "throws" [java/lang/Throwable]
                        (if (:as Bit throw?)
                          (panic! "YOLO")
                          ::value)))
@@ -370,10 +370,10 @@
   ["#::."
    (new [java/lang/Long])])
 
-(/.class: #final test/TestClass2 [test/TestInterface2]
+(/.class: "final" test/TestClass2 [test/TestInterface2]
   ... Constructors
-  (#public [] (new self) []
-           [])
+  ("public" [] (new self) []
+   [])
   ... Methods
   (test/TestInterface2
    [a] (actual2 self {input a})
@@ -384,12 +384,12 @@
   ["#::."
    (new [])])
 
-(/.class: #final (test/TestClass3 a) [(test/TestInterface3 a)]
+(/.class: "final" (test/TestClass3 a) [(test/TestInterface3 a)]
   ... Fields
-  (#private value a)
+  ("private" value a)
   ... Constructors
-  (#public [] (new self {value a}) []
-           (:= ::value value))
+  ("public" [] (new self {value a}) []
+   (:= ::value value))
   ... Methods
   ((test/TestInterface3 a)
    [] (actual3 self)
@@ -400,48 +400,48 @@
   ["#::."
    (new [a])])
 
-(/.class: #final test/TestClass4 []
+(/.class: "final" test/TestClass4 []
   ... Constructors
-  (#public [] (new self) []
-           [])
+  ("public" [] (new self) []
+   [])
   ... Methods
-  (#public (actual4 self {value java/lang/Long}) java/lang/Long
-           value))
+  ("public" (actual4 self {value java/lang/Long}) java/lang/Long
+   value))
 
 (/.import: test/TestClass4
   ["#::."
    (new [])
    (actual4 [java/lang/Long] java/lang/Long)])
 
-(/.class: #final test/TestClass5 []
+(/.class: "final" test/TestClass5 []
   ... Constructors
-  (#public [] (new self) []
-           [])
+  ("public" [] (new self) []
+   [])
   ... Methods
-  (#public "static" (actual5 {value java/lang/Long})
-           java/lang/Long
-           value))
+  ("public" "static" (actual5 {value java/lang/Long})
+   java/lang/Long
+   value))
 
 (/.import: test/TestClass5
   ["#::."
    ("static" actual5 [java/lang/Long] java/lang/Long)])
 
-(/.class: #abstract test/TestClass6 []
+(/.class: "abstract" test/TestClass6 []
   ... Constructors
-  (#public [] (new self) []
-           [])
+  ("public" [] (new self) []
+   [])
   ... Methods
-  (#public #abstract (actual6 {value java/lang/Long})
-           java/lang/Long))
+  ("public" "abstract" (actual6 {value java/lang/Long})
+   java/lang/Long))
 
 (/.import: test/TestClass6
   ["#::."
    (actual6 [java/lang/Long] java/lang/Long)])
 
-(/.class: #final test/TestClass7 test/TestClass6 []
+(/.class: "final" test/TestClass7 test/TestClass6 []
   ... Constructors
-  (#public [] (new self) []
-           [])
+  ("public" [] (new self) []
+   [])
   ... Methods
   (test/TestClass6
    [] (actual6 self {input java/lang/Long})
@@ -452,10 +452,10 @@
   ["#::."
    (new [])])
 
-(/.class: #final test/TestClass8 [test/TestInterface4]
+(/.class: "final" test/TestClass8 [test/TestInterface4]
   ... Constructors
-  (#public [] (new self) []
-           [])
+  ("public" [] (new self) []
+   [])
   ... Methods
   (test/TestInterface4
    [] (actual4 self {actual_left long} {actual_right long} {_ long})
@@ -468,17 +468,17 @@
   ["#::."
    (new [])])
 
-(/.class: #final (test/TestClass9 a) []
+(/.class: "final" (test/TestClass9 a) []
   ... Fields
-  (#private value9 a)
+  ("private" value9 a)
   ... Constructors
-  (#public [] (new self {value a}) []
-           (:= ::value9 value))
+  ("public" [] (new self {value a}) []
+   (:= ::value9 value))
   ... Methods
-  (#public (set_actual9 self {value a}) void
-           (:= ::value9 value))
-  (#public (get_actual9 self) a
-           ::value9))
+  ("public" (set_actual9 self {value a}) void
+   (:= ::value9 value))
+  ("public" (get_actual9 self) a
+   ::value9))
 
 (/.import: (test/TestClass9 a)
   ["#::."
diff --git a/stdlib/source/test/lux/ffi.old.lux b/stdlib/source/test/lux/ffi.old.lux
index 22c0a636a..1fcb84652 100644
--- a/stdlib/source/test/lux/ffi.old.lux
+++ b/stdlib/source/test/lux/ffi.old.lux
@@ -33,22 +33,22 @@
   ["#::."
    (getName [] java/lang/String)])
 
-(/.class: #final (TestClass A) []
+(/.class: "final" (TestClass A) []
   ... Fields
-  (#private increase java/lang/Long)
-  (#private counter java/lang/Long)
+  ("private" increase java/lang/Long)
+  ("private" counter java/lang/Long)
   ... Methods
-  (#public [] (new {increase java/lang/Long} {counter java/lang/Long}) []
-           (exec
-             (:= ::increase increase)
-             (:= ::counter counter)
-             []))
-  (#public (currentC self) java/lang/Long
-           ::counter)
-  (#public (upC self) void
-           (:= ::counter (i.+ ::increase ::counter)))
-  (#public (downC self) void
-           (:= ::counter (i.- ::increase ::counter))))
+  ("public" [] (new {increase java/lang/Long} {counter java/lang/Long}) []
+   (exec
+     (:= ::increase increase)
+     (:= ::counter counter)
+     []))
+  ("public" (currentC self) java/lang/Long
+   ::counter)
+  ("public" (upC self) void
+   (:= ::counter (i.+ ::increase ::counter)))
+  ("public" (downC self) void
+   (:= ::counter (i.- ::increase ::counter))))
 
 (/.import: (test/lux/ffi/TestClass a)
   ["#::."
@@ -58,9 +58,9 @@
    (downC [] void)])
 
 (/.interface: TestInterface
-  ([] current [] java/lang/Long #throws [java/lang/Exception])
-  ([] up [] test/lux/ffi/TestInterface #throws [java/lang/Exception])
-  ([] down [] test/lux/ffi/TestInterface #throws [java/lang/Exception]))
+  ([] current [] java/lang/Long "throws" [java/lang/Exception])
+  ([] up [] test/lux/ffi/TestInterface "throws" [java/lang/Exception])
+  ([] down [] test/lux/ffi/TestInterface "throws" [java/lang/Exception]))
 
 (/.import: test/lux/ffi/TestInterface
   ["#::."
diff --git a/stdlib/source/test/lux/macro.lux b/stdlib/source/test/lux/macro.lux
index fa117e96b..ec8b70644 100644
--- a/stdlib/source/test/lux/macro.lux
+++ b/stdlib/source/test/lux/macro.lux
@@ -125,7 +125,7 @@
                                 (try.else false)))
 
                    (_.cover [<logger>]
-                            (and (|> (/.single_expansion (` (<logger> (~' #omit) (..pow/4 (~ pow/1)))))
+                            (and (|> (/.single_expansion (` (<logger> "omit" (..pow/4 (~ pow/1)))))
                                      (meta.result lux)
                                      (try\each (\ (list.equivalence code.equivalence) = (list)))
                                      (try.else false))