diff options
Diffstat (limited to 'lux-lua/source')
| -rw-r--r-- | lux-lua/source/program.lux | 32 |
1 files changed, 14 insertions, 18 deletions
diff --git a/lux-lua/source/program.lux b/lux-lua/source/program.lux index a16198b06..e21b86260 100644 --- a/lux-lua/source/program.lux +++ b/lux-lua/source/program.lux @@ -180,19 +180,19 @@ [] ... Methods (program/StructureValue - [] (getValue self) java/lang/Object + [] (getValue self []) java/lang/Object (:as java/lang/Object value)) (net/sandius/rembulan/impl/DefaultTable - [] (rawlen self) long + [] (rawlen self []) long (|> value array.size (:as java/lang/Long))) (net/sandius/rembulan/impl/DefaultTable - [] (rawget self {idx long}) java/lang/Object + [] (rawget self [idx long]) java/lang/Object (|> value (array.read! (|> idx (:as Nat) --)) maybe.trusted re_wrap)) (net/sandius/rembulan/impl/DefaultTable - [] (rawget self {field java/lang/Object}) java/lang/Object + [] (rawget self [field java/lang/Object]) java/lang/Object (case (ffi.check net/sandius/rembulan/ByteString field) (#.Some field) (case (net/sandius/rembulan/ByteString::decode field) @@ -651,16 +651,14 @@ [] ... Methods (net/sandius/rembulan/runtime/LuaFunction - [] (invoke self - {% net/sandius/rembulan/runtime/ExecutionContext}) + [] (invoke self [% net/sandius/rembulan/runtime/ExecutionContext]) void (<| (..return %) (host_phase partial_application phase))) (net/sandius/rembulan/runtime/LuaFunction - [] (invoke self - {% net/sandius/rembulan/runtime/ExecutionContext} - {input/0 java/lang/Object}) + [] (invoke self [% net/sandius/rembulan/runtime/ExecutionContext + input/0 java/lang/Object]) void (<| (..return %) try.trusted @@ -683,10 +681,9 @@ (exception.except ..invaid_phase_application [partial_application 2]))))) (net/sandius/rembulan/runtime/LuaFunction - [] (invoke self - {% net/sandius/rembulan/runtime/ExecutionContext} - {input/0 java/lang/Object} - {input/1 java/lang/Object}) + [] (invoke self [% net/sandius/rembulan/runtime/ExecutionContext + input/0 java/lang/Object + input/1 java/lang/Object]) void (<| (..return %) try.trusted @@ -707,11 +704,10 @@ (exception.except ..invaid_phase_application [partial_application 2]))))) (net/sandius/rembulan/runtime/LuaFunction - [] (invoke self - {% net/sandius/rembulan/runtime/ExecutionContext} - {input/0 java/lang/Object} - {input/1 java/lang/Object} - {input/2 java/lang/Object}) + [] (invoke self [% net/sandius/rembulan/runtime/ExecutionContext + input/0 java/lang/Object + input/1 java/lang/Object + input/2 java/lang/Object]) void (<| (..return %) try.trusted |