Made the "#" character great again!

1 files changed, 23 insertions, 23 deletions

diff --git a/stdlib/source/library/lux/world/shell.lux b/stdlib/source/library/lux/world/shell.lux
index 3fd76261b..29ff3ab2e 100644
--- a/stdlib/source/library/lux/world/shell.lux
+++ b/stdlib/source/library/lux/world/shell.lux
@@ -50,7 +50,7 @@
    (: (-> [] (! (Try Text)))
       read)
    (: (-> [] (! (Try Text)))
-      error)
+      fail)
    (: (-> Text (! (Try Any)))
       write)
    (: (-> [] (! (Try Any)))
@@ -67,7 +67,7 @@
                      async.future))]
 
              [read]
-             [error]
+             [fail]
              [write]
              [destroy]
              [await]
@@ -140,11 +140,11 @@
   (Ex (_ ?) (-> (Sanitizer Command) (Sanitizer Argument) (Policy ?)))
   (?.with_policy
     (: (Context Safety Policy)
-       (function (_ (^open "?\[0]"))
+       (function (_ (^open "?[0]"))
          (implementation
-          (def: command (|>> safe_command ?\can_upgrade))
-          (def: argument (|>> safe_argument ?\can_upgrade))
-          (def: value ?\can_downgrade))))))
+          (def: command (|>> safe_command ?#can_upgrade))
+          (def: argument (|>> safe_argument ?#can_upgrade))
+          (def: value ?#can_downgrade))))))
 
 (def: unix_policy
   (let [replacer (: Replacer
@@ -249,14 +249,14 @@
                                                         (do !
                                                           [output (java/io/BufferedReader::readLine <stream>)]
                                                           (case output
-                                                            {#.Some output}
+                                                            {.#Some output}
                                                             (in output)
 
-                                                            #.None
+                                                            {.#None}
                                                             (\ io.monad in (exception.except ..no_more_output [])))))]
 
                                                      [read jvm_input]
-                                                     [error jvm_error]
+                                                     [fail jvm_error]
                                                      ))
                                                (def: (write message)
                                                  (java/io/OutputStream::write (\ utf8.codec encoded message) jvm_output))
@@ -315,7 +315,7 @@
    (: (-> s (Try [s Text]))
       on_read)
    (: (-> s (Try [s Text]))
-      on_error)
+      on_fail)
    (: (-> Text s (Try s))
       on_write)
    (: (-> s (Try s))
@@ -331,40 +331,40 @@
                (do [! io.monad]
                  [|state| (atom.read! state)]
                  (case (\ mock <mock> |state|)
-                   {#try.Success [|state| output]}
+                   {try.#Success [|state| output]}
                    (do !
                      [_ (atom.write! |state| state)]
-                     (in {#try.Success output}))
+                     (in {try.#Success output}))
                    
-                   {#try.Failure error}
-                   (in {#try.Failure error}))))]
+                   {try.#Failure error}
+                   (in {try.#Failure error}))))]
 
             [read on_read]
-            [error on_error]
+            [fail on_fail]
             [await on_await]
             ))
       (def: (write message)
         (do [! io.monad]
           [|state| (atom.read! state)]
           (case (\ mock on_write message |state|)
-            {#try.Success |state|}
+            {try.#Success |state|}
             (do !
               [_ (atom.write! |state| state)]
-              (in {#try.Success []}))
+              (in {try.#Success []}))
             
-            {#try.Failure error}
-            (in {#try.Failure error}))))
+            {try.#Failure error}
+            (in {try.#Failure error}))))
       (def: (destroy _)
         (do [! io.monad]
           [|state| (atom.read! state)]
           (case (\ mock on_destroy |state|)
-            {#try.Success |state|}
+            {try.#Success |state|}
             (do !
               [_ (atom.write! |state| state)]
-              (in {#try.Success []}))
+              (in {try.#Success []}))
             
-            {#try.Failure error}
-            (in {#try.Failure error}))))))
+            {try.#Failure error}
+            (in {try.#Failure error}))))))
 
 (implementation: .public (mock mock init)
   (All (_ s)