# HG changeset patch
# User Matthew Wild <mwild1@gmail.com>
# Date 1254761879 -3600
# Node ID 7f8928aa0b9d88bb025e024c6482a0f8a3291624
# Parent  e7f6baf39b56357d98cb3e678b8df17bdde1bc3f# Parent  e9d5406caf8c3a8e4abe9261f9fc59872473805b
Merge with 0.5

diff -r e7f6baf39b56 -r 7f8928aa0b9d util/array.lua
--- a/util/array.lua	Mon Oct 05 15:16:34 2009 +0100
+++ b/util/array.lua	Mon Oct 05 17:57:59 2009 +0100
@@ -33,11 +33,22 @@
 end
 
 function array_base.filter(outa, ina, func)
-	for k,v in ipairs(ina) do
+	local inplace, start_length = ina == outa, #ina;
+	local write = 1;
+	for read=1,start_length do
+		local v = ina[read];
 		if func(v) then
-			outa:push(v);
+			outa[write] = v;
+			write = write + 1;
 		end
 	end
+	
+	if inplace and write < start_length then
+		for i=write,start_length do
+			outa[i] = nil;
+		end
+	end
+	
 	return outa;
 end