# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1401687565 25200
# Node ID 56409de95f55b4bd78f8dd5c0671b263658f5761
# Parent  32964a4e7a3321c00bc32a5323c6d5ddc3c64a80
Untested implementation of filter for arrays

diff -r 32964a4e7a33 -r 56409de95f55 modules/array.tp
--- a/modules/array.tp	Thu May 29 18:51:15 2014 -0700
+++ b/modules/array.tp	Sun Jun 01 22:39:25 2014 -0700
@@ -103,6 +103,16 @@
 		new
 	}
 
+	filter <- :fun {
+		new <- #[]
+		foreach: self :idx el {
+			if: (fun: el) {
+				new append: el
+			}
+		}
+		new
+	}
+
 	find:withDefault <- :pred :default{
 		idx <- 0
 		l <- length