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