# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1377467083 25200
# Node ID ca249978ae96b5f7a69895f5cdfe2c9555d78e32
# Parent  97f107b9e8d34fa73c2fb6f313e2e27e697256ce
Add join method to array

diff -r 97f107b9e8d3 -r ca249978ae96 modules/array.tp
--- a/modules/array.tp	Sat Aug 24 19:03:18 2013 -0700
+++ b/modules/array.tp	Sun Aug 25 14:44:43 2013 -0700
@@ -102,4 +102,18 @@
 		}
 		ret
 	}
+
+	join <- :sep {
+		if: length > 0 {
+			str <- get: 0
+			idx <- 1
+			l <- length
+			while: { idx < l } do: {
+				str <- str . sep . (get: idx)
+			}
+			str
+		} else: {
+			""
+		}
+	}
 }