From 5270f301eba5237feebc8eca14aee6b7a992a819 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 6 Jul 2022 16:25:43 -0400 Subject: Made exception.report a function. --- lux-ruby/source/program.lux | 32 ++++++++++++++++---------------- 1 file changed, 16 insertions(+), 16 deletions(-) (limited to 'lux-ruby/source') diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux index 2e9d6b06e..35aada877 100644 --- a/lux-ruby/source/program.lux +++ b/lux-ruby/source/program.lux @@ -252,8 +252,8 @@ (exception (unknown_kind_of_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)))) + (list ["Class" (ffi.of_string (java/lang/Object::toString (java/lang/Object::getClass object)))] + ["Object" (ffi.of_string (java/lang/Object::toString object))]))) (def (read_variant read host_object) (-> Translator org/jruby/RubyHash (Try Any)) @@ -349,17 +349,17 @@ (exception (invalid_variant_access [field Text]) (exception.report - "Field" (%.text field))) + (list ["Field" (%.text field)]))) (exception (invalid_index [index java/lang/Object]) (exception.report - "Class" (|> index - java/lang/Object::getClass - java/lang/Object::toString - ffi.of_string) - "Index" (|> index - java/lang/Object::toString - ffi.of_string))) + (list ["Class" (|> index + java/lang/Object::getClass + java/lang/Object::toString + ffi.of_string)] + ["Index" (|> index + java/lang/Object::toString + ffi.of_string)]))) (import java/util/Arrays "[1]::[0]" @@ -367,7 +367,7 @@ (exception (invalid_arity [arity Nat]) (exception.report - "Arity" (%.nat arity))) + (list ["Arity" (%.nat arity)]))) (def (::call useful_object_class lux_structure value) (-> (-> (-> (Array java/lang/Object) org/jruby/runtime/builtin/IRubyObject) @@ -603,7 +603,7 @@ (exception (invalid_operation [method Text]) (exception.report - "Method" (%.text method))) + (list ["Method" (%.text method)]))) (def (::respond_to? value) (-> (Array java/lang/Object) org/jruby/internal/runtime/methods/DynamicMethod) @@ -649,7 +649,7 @@ (exception (unknown_method [method Text]) (exception.report - "Method" (%.text method))) + (list ["Method" (%.text method)]))) (def (useful_object_class lux_structure value) (-> (-> (Array java/lang/Object) org/jruby/runtime/builtin/IRubyObject) @@ -693,7 +693,7 @@ (exception (cannot_apply_a_non_function [object java/lang/Object]) (exception.report - "Non-function" (ffi.of_string (java/lang/Object::toString object)))) + (list ["Non-function" (ffi.of_string (java/lang/Object::toString object))]))) (def macro! (-> Macro (Maybe org/jruby/RubyProc)) @@ -774,8 +774,8 @@ (for @.jvm (these (exception .public (invaid_phase_application [partial_application (List Any) arity (List Any)]) (exception.report - "Partial Application" (%.nat (list.size partial_application)) - "Arity" (%.nat (list.size arity)))) + (list ["Partial Application" (%.nat (list.size partial_application))] + ["Arity" (%.nat (list.size arity))]))) (def proc_type org/jruby/runtime/Block$Type -- cgit v1.2.3