De-sigil-ification: $

1 files changed, 9 insertions, 9 deletions

diff --git a/stdlib/source/library/lux/control/parser/code.lux b/stdlib/source/library/lux/control/parser/code.lux
index 516e6ff2e..70a65f6e5 100644
--- a/stdlib/source/library/lux/control/parser/code.lux
+++ b/stdlib/source/library/lux/control/parser/code.lux
@@ -35,7 +35,7 @@
   (-> (List Code) Text)
   (|>> (list#each code.format)
        (text.interposed " ")
-       ($_ text#composite text.new_line "Remaining input: ")))
+       (all text#composite text.new_line "Remaining input: ")))
 
 (def: .public any
   (Parser Code)
@@ -58,7 +58,7 @@
       {try.#Success [tokens next]})))
 
 (template [<query> <check> <type> <tag> <eq> <desc>]
-  [(with_expansions [<failure> (these {try.#Failure ($_ text#composite "Cannot parse " <desc> (remaining_inputs tokens))})]
+  [(with_expansions [<failure> (these {try.#Failure (all text#composite "Cannot parse " <desc> (remaining_inputs tokens))})]
      (def: .public <query>
        (Parser <type>)
        (function (_ tokens)
@@ -97,13 +97,13 @@
       {.#Item [token tokens']}
       (if (code#= code token)
         {try.#Success [tokens' []]}
-        {try.#Failure ($_ text#composite "Expected a " (code.format code) " but instead got " (code.format token)
-                          (remaining_inputs tokens))})
+        {try.#Failure (all text#composite "Expected a " (code.format code) " but instead got " (code.format token)
+                           (remaining_inputs tokens))})
 
       _
       {try.#Failure "There are no tokens to parse!"})))
 
-(with_expansions [<failure> (these {try.#Failure ($_ text#composite "Cannot parse local symbol" (remaining_inputs tokens))})]
+(with_expansions [<failure> (these {try.#Failure (all text#composite "Cannot parse local symbol" (remaining_inputs tokens))})]
   (def: .public local
     (Parser Text)
     (function (_ tokens)
@@ -126,7 +126,7 @@
         _
         <failure>))))
 
-(with_expansions [<failure> (these {try.#Failure ($_ text#composite "Cannot parse local symbol" (remaining_inputs tokens))})]
+(with_expansions [<failure> (these {try.#Failure (all text#composite "Cannot parse local symbol" (remaining_inputs tokens))})]
   (def: .public global
     (Parser Symbol)
     (function (_ tokens)
@@ -164,10 +164,10 @@
          {.#Item [[_ {<tag> members}] tokens']}
          (case (p members)
            {try.#Success [{.#End} x]} {try.#Success [tokens' x]}
-           _                          {try.#Failure ($_ text#composite "Parser was expected to fully consume " <desc> (remaining_inputs tokens))})
+           _                          {try.#Failure (all text#composite "Parser was expected to fully consume " <desc> (remaining_inputs tokens))})
 
          _
-         {try.#Failure ($_ text#composite "Cannot parse " <desc> (remaining_inputs tokens))})))]
+         {try.#Failure (all text#composite "Cannot parse " <desc> (remaining_inputs tokens))})))]
 
   [form .#Form "form"]
   [variant .#Variant "variant"]
@@ -179,7 +179,7 @@
   (function (_ tokens)
     (case tokens
       {.#End} {try.#Success [tokens []]}
-      _       {try.#Failure ($_ text#composite "Expected list of tokens to be empty!" (remaining_inputs tokens))})))
+      _       {try.#Failure (all text#composite "Expected list of tokens to be empty!" (remaining_inputs tokens))})))
 
 (def: .public end?
   (Parser Bit)