From e5625dd840a8b8adc76987f649da254335d3d93a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 11 Aug 2022 16:50:42 -0400
Subject: Improved exception-definition macro.

---
 stdlib/source/test/aedifex/command/version.lux |  4 ++--
 stdlib/source/test/aedifex/repository.lux      | 14 ++++++++------
 2 files changed, 10 insertions(+), 8 deletions(-)

(limited to 'stdlib/source/test/aedifex')

diff --git a/stdlib/source/test/aedifex/command/version.lux b/stdlib/source/test/aedifex/command/version.lux
index 7d2877738..169b20ef6 100644
--- a/stdlib/source/test/aedifex/command/version.lux
+++ b/stdlib/source/test/aedifex/command/version.lux
@@ -6,7 +6,7 @@
    [control
     ["[0]" maybe]
     ["[0]" try]
-    ["[0]" exception (.only exception)]
+    ["[0]" exception]
     [concurrency
      ["[0]" async (.only Async)]]]
    [data
@@ -28,7 +28,7 @@
  [\\program
   ["[0]" /]])
 
-(exception .public console_is_closed!)
+(exception.def .public console_is_closed!)
 
 (def mock
   (Mock [Bit Text])
diff --git a/stdlib/source/test/aedifex/repository.lux b/stdlib/source/test/aedifex/repository.lux
index fbb3ef01b..fd26f3898 100644
--- a/stdlib/source/test/aedifex/repository.lux
+++ b/stdlib/source/test/aedifex/repository.lux
@@ -43,13 +43,15 @@
   (-> Version Artifact)
   (|>> ["com.github.luxlang" "test-artifact"]))
 
-(exception (not_found [uri URI])
-  (exception.report
-   (list ["URI" (%.text uri)])))
+(with_template [<name>]
+  [(exception.def (<name> uri)
+     (Exception URI)
+     (exception.report
+      (list ["URI" (%.text uri)])))]
 
-(exception (cannot_upload [uri URI])
-  (exception.report
-   (list ["URI" (%.text uri)])))
+  [not_found]
+  [cannot_upload]
+  )
 
 (type Store
   (Dictionary URI Binary))
-- 
cgit v1.2.3