aboutsummaryrefslogtreecommitdiff
path: root/lux-scheme
diff options
context:
space:
mode:
Diffstat (limited to 'lux-scheme')
-rw-r--r--lux-scheme/source/program.lux8
1 files changed, 5 insertions, 3 deletions
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)])))