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.

---
 lux-scheme/source/program.lux | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'lux-scheme')

diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux
index ff51d1b45..0792c9747 100644
--- a/lux-scheme/source/program.lux
+++ b/lux-scheme/source/program.lux
@@ -9,7 +9,7 @@
    ["[0]" pipe]
    ["[0]" maybe]
    ["[0]" try (.only Try)]
-   ["[0]" exception (.only exception)]
+   ["[0]" exception (.only Exception)]
    ["[0]" io (.only IO io)]
    [concurrency
     ["[0]" promise (.only Promise)]]]
@@ -236,12 +236,14 @@
      (undefined))
     ))
 
-(exception (unknown_kind_of_host_object [object java/lang/Object])
+(exception.def (unknown_kind_of_host_object object)
+  (Exception java/lang/Object)
   (exception.report
    (list ["Class" (java/lang/Object::toString (java/lang/Object::getClass object))]
          ["Object" (java/lang/Object::toString object)])))
 
-(exception (cannot_apply_a_non_function [object java/lang/Object])
+(exception.def (cannot_apply_a_non_function object)
+  (Exception java/lang/Object)
   (exception.report
    (list ["Class" (java/lang/Object::toString (java/lang/Object::getClass object))]
          ["Object" (java/lang/Object::toString object)])))
-- 
cgit v1.2.3