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-cl/source/program.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lux-cl')

diff --git a/lux-cl/source/program.lux b/lux-cl/source/program.lux
index 56fded738..744474bc9 100644
--- a/lux-cl/source/program.lux
+++ b/lux-cl/source/program.lux
@@ -186,11 +186,11 @@
           []
           ... Methods
           (program/LuxADT
-           [] (getValue self) java/lang/Object
+           [] (getValue self []) java/lang/Object
            (:as java/lang/Object value))
 
           (org/armedbear/lisp/LispObject
-           [] (length self)
+           [] (length self [])
            int
            (|> value
                (:as (Array java/lang/Object))
@@ -200,7 +200,7 @@
 
           (~~ (template [<name>]
                 [(org/armedbear/lisp/LispObject
-                  [] (<name> self {idx int})
+                  [] (<name> self [idx int])
                   org/armedbear/lisp/LispObject
                   (case (array.read! (|> idx java/lang/Integer::longValue (:as Nat))
                                      (:as (Array java/lang/Object) value))
-- 
cgit v1.2.3