diff options
| author | Eduardo Julian | 2021-09-08 21:44:06 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-09-08 21:44:06 -0400 |
| commit | 77301f3a456c015daa9d8f9aa3d80fd4e45f8e7e (patch) | |
| tree | 00f27e4cdebf5a1390bd9acc462d8ca95778f04e /lux-cl/source/program.lux | |
| parent | 880cb37c261df20b7b8d968a909557bbc63d6b7f (diff) | |
De-bracing part 0
Diffstat (limited to 'lux-cl/source/program.lux')
| -rw-r--r-- | lux-cl/source/program.lux | 6 |
1 files changed, 3 insertions, 3 deletions
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)) |