Improved exception-definition macro.

1 files changed, 4 insertions, 3 deletions

diff --git a/stdlib/source/program/aedifex/hash.lux b/stdlib/source/program/aedifex/hash.lux
index eedf5e464..64e9784d3 100644
--- a/stdlib/source/program/aedifex/hash.lux
+++ b/stdlib/source/program/aedifex/hash.lux
@@ -81,15 +81,16 @@
   (def hex_per_chunk
     (n.* hex_per_byte i64.bytes_per_i64))
 
-  (exception .public (not_a_hash [size Nat
-                                  value Text])
+  (exception.def .public (not_a_hash [size value])
+    (Exception [Nat Text])
     (exception.report
      (list ["Pseudo hash" (%.text value)]
            ["Expected size" (%.nat size)]
            ["Actual size" (%.nat (text.size value))])))
   
   (with_template [<name> <size>]
-    [(exception .public (<name> [data Binary])
+    [(exception.def .public (<name> data)
+       (Exception Binary)
        (exception.report
         (list ["Pseudo hash" (%.text (..encoded data))]
               ["Expected size" (%.nat <size>)]