From d4de902fc7cdcafa0a2ab4c3d543253590e4e6b4 Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Tue, 30 Oct 2007 00:34:25 +0000 Subject: added make-array --- src/boot.clj | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src') diff --git a/src/boot.clj b/src/boot.clj index d3b1e933..5401fb4e 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -684,8 +684,8 @@ (. Array (setByte array idx (byte val))) val) -(defn int-array [len] - (. Array (newInstance (. Integer TYPE) (int len)))) +(defn make-array [type len] + (. Array (newInstance type (int len)))) (import '(java.util.concurrent Executors LinkedBlockingQueue)) @@ -761,6 +761,6 @@ time int long float double short byte boolean aget aset aset-boolean aset-int aset-long aset-float aset-double aset-short aset-byte - int-array + make-array )) -- cgit v1.2.3-70-g09d2