From 061fd8a209bbcaffc2bfb850ac6046752a567d50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 27 Jul 2021 03:51:10 -0400
Subject: Re-named wrap => in && unwrap => out.

---
 stdlib/source/test/aedifex/command/version.lux | 30 +++++++++++++-------------
 1 file changed, 15 insertions(+), 15 deletions(-)

(limited to 'stdlib/source/test/aedifex/command/version.lux')

diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 739a02fef..30c7d3f80 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -39,23 +39,23 @@
        (do maybe.monad
          [head (text.nth 0 state)
           [_ tail] (text.split 1 state)]
-         (wrap [[open? tail] head])))
-      (exception.throw ..console_is_closed! [])))
+         (in [[open? tail] head])))
+      (exception.except ..console_is_closed! [])))
   (def: (on_read_line [open? state])
     (if open?
       (try.of_maybe
        (do maybe.monad
          [[output state] (text.split_with text.new_line state)]
-         (wrap [[open? state] output])))
-      (exception.throw ..console_is_closed! [])))
+         (in [[open? state] output])))
+      (exception.except ..console_is_closed! [])))
   (def: (on_write input [open? state])
     (if open?
       (#try.Success [open? (format state input)])
-      (exception.throw ..console_is_closed! [])))
+      (exception.except ..console_is_closed! [])))
   (def: (on_close [open? buffer])
     (if open?
       (#try.Success [false buffer])
-      (exception.throw ..console_is_closed! []))))
+      (exception.except ..console_is_closed! []))))
 
 (def: #export echo
   (-> Text (Console Async))
@@ -68,12 +68,12 @@
   (<| (_.covering /._)
       (do random.monad
         [profile @profile.random]
-        (wrap (do async.monad
-                [#let [console (..echo "")]
-                 verdict (do (try.with async.monad)
-                           [_ (/.do! console profile)
-                            logging (\ console read_line [])]
-                           (wrap (text\= (version.format language/lux.version)
-                                         logging)))]
-                (_.cover' [/.do!]
-                          (try.default false verdict)))))))
+        (in (do async.monad
+              [#let [console (..echo "")]
+               verdict (do (try.with async.monad)
+                         [_ (/.do! console profile)
+                          logging (\ console read_line [])]
+                         (in (text\= (version.format language/lux.version)
+                                     logging)))]
+              (_.cover' [/.do!]
+                        (try.default false verdict)))))))
-- 
cgit v1.2.3