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/package.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/stdlib/source/test/aedifex/package.lux b/stdlib/source/test/aedifex/package.lux
index 61201456a..8896b731d 100644
--- a/stdlib/source/test/aedifex/package.lux
+++ b/stdlib/source/test/aedifex/package.lux
@@ -46,12 +46,12 @@
     [content_size (\ ! map (n.% 100) random.nat)
      content ($binary.random content_size)
      [profile pom] (random.one (function (_ profile)
-                                 (try.to_maybe
+                                 (try.maybe
                                   (do try.monad
                                     [pom (//pom.write profile)]
-                                    (wrap [profile pom]))))
+                                    (in [profile pom]))))
                                $profile.random)]
-    (wrap [profile (/.local pom content)])))
+    (in [profile (/.local pom content)])))
 
 (def: #export test
   Test
@@ -94,7 +94,7 @@
                                    (|> (do try.monad
                                          [xml_pom (\ utf8.codec decode binary_pom)
                                           decoded_pom (\ xml.codec decode xml_pom)]
-                                         (wrap (\ xml.equivalence = actual_pom decoded_pom)))
+                                         (in (\ xml.equivalence = actual_pom decoded_pom)))
                                        (try.default false))
                                    (case pom_status
                                      (#//status.Verified actual_sha1 expected_md5)
-- 
cgit v1.2.3