diff options
| author | Eduardo Julian | 2022-08-11 16:50:42 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-08-11 16:50:42 -0400 |
| commit | e5625dd840a8b8adc76987f649da254335d3d93a (patch) | |
| tree | fb672669383525d90d462edf8c141f98bc953894 /lux-r | |
| parent | 065e8a4d8122d4616b570496915d2c0e2c78cd6b (diff) | |
Improved exception-definition macro.
Diffstat (limited to 'lux-r')
| -rw-r--r-- | lux-r/source/program.lux | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lux-r/source/program.lux b/lux-r/source/program.lux index ab60ff510..5962ac1bd 100644 --- a/lux-r/source/program.lux +++ b/lux-r/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)]]] @@ -171,7 +171,8 @@ (getScriptEngine [] org/renjin/script/RenjinScriptEngine)) (with_template [<name>] - [(exception (<name> [object java/lang/Object]) + [(exception.def (<name> object) + (Exception java/lang/Object) (exception.report (list ["Class" (java/lang/Object::toString (java/lang/Object::getClass object))] ["Object" (java/lang/Object::toString object)])))] |