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/experiment/tool/interpreter.lux | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'stdlib/source/experiment')

diff --git a/stdlib/source/experiment/tool/interpreter.lux b/stdlib/source/experiment/tool/interpreter.lux
index cea7bd833..55064903b 100644
--- a/stdlib/source/experiment/tool/interpreter.lux
+++ b/stdlib/source/experiment/tool/interpreter.lux
@@ -4,7 +4,7 @@
    [control
     [monad (.only Monad do)]
     ["[0]" try (.only Try)]
-    ["ex" exception (.only exception)]]
+    ["ex" exception (.only Exception)]]
    [data
     ["[0]" text (.use "[1]#[0]" equivalence)
      ["%" \\format (.only format)]]]
@@ -29,7 +29,8 @@
     ["[0]" console (.only Console)]]]]
  ["[0]" /type])
 
-(exception .public (error [message Text])
+(exception.def .public (error message)
+  (Exception Text)
   message)
 
 (def .public module "<INTERPRETER>")
-- 
cgit v1.2.3