diff options
Diffstat (limited to 'lux-scheme/source')
| -rw-r--r-- | lux-scheme/source/program.lux | 22 |
1 files changed, 11 insertions, 11 deletions
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)) )) |