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/source') 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