diff options
Diffstat (limited to 'lux-js')
| -rw-r--r-- | lux-js/source/program.lux | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/lux-js/source/program.lux b/lux-js/source/program.lux index c766074fb..1df4d4803 100644 --- a/lux-js/source/program.lux +++ b/lux-js/source/program.lux @@ -155,8 +155,8 @@ (exception (unknown_member [member Text object java/lang/Object]) (exception.report - "Member" member - "Object" (debug.inspection object))) + (list ["Member" member] + ["Object" (debug.inspection object)]))) (def jvm_int (-> (I64 Any) java/lang/Integer) @@ -311,17 +311,17 @@ (exception (unknown_kind_of_host_object [object java/lang/Object]) (exception.report - "Class" (ffi.of_string (java/lang/Object::toString (java/lang/Object::getClass object))) - "Object" (ffi.of_string (java/lang/Object::toString object)) - "Keys" (case (ffi.is org/openjdk/nashorn/api/scripting/ScriptObjectMirror object) - {.#Some object} - (|> object - (org/openjdk/nashorn/api/scripting/ScriptObjectMirror::getOwnKeys true) - (array.list {.#None}) - (%.list (|>> ffi.of_string %.text))) - - {.#None} - "???"))) + (list ["Class" (ffi.of_string (java/lang/Object::toString (java/lang/Object::getClass object)))] + ["Object" (ffi.of_string (java/lang/Object::toString object))] + ["Keys" (case (ffi.is org/openjdk/nashorn/api/scripting/ScriptObjectMirror object) + {.#Some object} + (|> object + (org/openjdk/nashorn/api/scripting/ScriptObjectMirror::getOwnKeys true) + (array.list {.#None}) + (%.list (|>> ffi.of_string %.text))) + + {.#None} + "???")]))) (def (i32 half i64) (-> Text org/openjdk/nashorn/api/scripting/ScriptObjectMirror (Maybe Int)) @@ -475,7 +475,7 @@ (exception (cannot_apply_a_non_function [object java/lang/Object]) (exception.report - "Object" (ffi.of_string (java/lang/Object::toString object)))) + (list ["Object" (ffi.of_string (java/lang/Object::toString object))]))) (def (expander macro inputs lux) Expander |