From 97ab1f076ac08992d6b64cd77bc0bef97b3fc50a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 31 Jul 2018 22:23:07 -0400
Subject: Now implementing array functionality in stdlib instead of the
 compiler.

---
 .../common-lisp/procedure/common.jvm.lux           | 29 ----------------------
 1 file changed, 29 deletions(-)

(limited to 'new-luxc/source/luxc/lang/translation/common-lisp/procedure')

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)
           )))
-- 
cgit v1.2.3