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