diff options
Diffstat (limited to 'new-luxc/source/luxc/lang/translation/common-lisp')
-rw-r--r-- | new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux index 54a4336fb..91a95d2f9 100644 --- a/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux +++ b/new-luxc/source/luxc/lang/translation/common-lisp/procedure/common.jvm.lux @@ -177,34 +177,6 @@ (install "arithmetic-right-shift" (binary bit//arithmetic-right-shift)) ))) -## [[Arrays]] -(def: (array//new size0) - Unary - (_.make-array/init size0 _.nil)) - -(def: (array//get [arrayO idxO]) - Binary - (runtimeT.array//get arrayO idxO)) - -(def: (array//put [arrayO idxO elemO]) - Trinary - (runtimeT.array//put arrayO idxO elemO)) - -(def: (array//remove [arrayO idxO]) - Binary - (runtimeT.array//put arrayO idxO _.nil)) - -(def: array-procs - Bundle - (<| (prefix "array") - (|> (dict.new text.Hash<Text>) - (install "new" (unary array//new)) - (install "get" (binary array//get)) - (install "put" (trinary array//put)) - (install "remove" (binary array//remove)) - (install "size" (unary _.length)) - ))) - ## [[Numbers]] (host.import: java/lang/Double (#static MIN_VALUE Double) @@ -359,7 +331,6 @@ (dict.merge int-procs) (dict.merge frac-procs) (dict.merge text-procs) - (dict.merge array-procs) (dict.merge io-procs) (dict.merge box-procs) ))) |