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/program/aedifex/hash.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/aedifex/hash.lux')

diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index 760c05ce1..4e83b8f07 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -99,7 +99,7 @@
        (-> Binary (Try (Hash <kind>)))
        (if (n.= <size> (binary.size data))
          (#try.Success (:abstraction data))
-         (exception.throw <exception> [data])))]
+         (exception.except <exception> [data])))]
 
     [as_sha-1 SHA-1 ..sha-1::size ..not_a_sha-1]
     [as_md5 MD5 ..md5::size ..not_a_md5]
@@ -142,8 +142,8 @@
                 ([1 binary.write/8]
                  [2 binary.write/16]
                  [4 binary.write/32])
-                _ (exception.throw ..not_a_hash [(..encoding_size size) encoded])))))
-        (exception.throw ..not_a_hash [(..encoding_size size) encoded]))))
+                _ (exception.except ..not_a_hash [(..encoding_size size) encoded])))))
+        (exception.except ..not_a_hash [(..encoding_size size) encoded]))))
 
   (template [<codec> <hash> <nat> <constructor>]
     [(implementation: #export <codec>
-- 
cgit v1.2.3