From 77301f3a456c015daa9d8f9aa3d80fd4e45f8e7e Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Wed, 8 Sep 2021 21:44:06 -0400 Subject: De-bracing part 0 --- lux-scheme/source/program.lux | 22 +++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) (limited to 'lux-scheme') diff --git a/lux-scheme/source/program.lux b/lux-scheme/source/program.lux index 82b66ec9d..51ed54a32 100644 --- a/lux-scheme/source/program.lux +++ b/lux-scheme/source/program.lux @@ -171,10 +171,10 @@ [] ... Methods (program/VariantValue - [] (getValue self) java/lang/Object + [] (getValue self []) java/lang/Object (:as java/lang/Object value)) (gnu/lists/Pair - [] (getCar self) java/lang/Object + [] (getCar self []) java/lang/Object (if cdr? (case (array.read! 1 value) (#.Some flag_is_set) @@ -188,7 +188,7 @@ (:as java/lang/Integer) gnu/math/IntNum::new))) (gnu/lists/Pair - [] (getCdr self) java/lang/Object + [] (getCdr self []) java/lang/Object (if cdr? (|> value (array.read! 2) @@ -202,31 +202,31 @@ [] ... Methods (program/TupleValue - [] (getValue self) java/lang/Object + [] (getValue self []) java/lang/Object (:as java/lang/Object value)) (gnu/lists/SimpleVector - [] (getBufferLength self) int + [] (getBufferLength self []) int (ffi.long_to_int (array.size value))) (gnu/lists/SimpleVector - [] (getRaw self {idx int}) java/lang/Object + [] (getRaw self [idx int]) java/lang/Object (|> value (array.read! (|> idx java/lang/Integer::longValue (:as Nat))) maybe.trusted lux_value)) (gnu/lists/SimpleVector - [] (getBuffer self) java/lang/Object + [] (getBuffer self []) java/lang/Object (undefined)) (gnu/lists/SimpleVector - [] (setBuffer self {_ java/lang/Object}) void + [] (setBuffer self [_ java/lang/Object]) void (undefined)) (gnu/lists/SimpleVector - [] (clearBuffer self {_ int} {_ int}) void + [] (clearBuffer self [_ int _ int]) void (undefined)) (gnu/lists/SimpleVector - [] (copyBuffer self {_ int}) void + [] (copyBuffer self [_ int]) void (undefined)) (gnu/lists/SimpleVector - [] (newInstance self {_ int}) gnu/lists/SimpleVector + [] (newInstance self [_ int]) gnu/lists/SimpleVector (undefined)) )) -- cgit v1.2.3