# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1377571802 25200
# Node ID abde5d2918cf58aaeec39a8a3f939f53b61797d5
# Parent  372cbd2cd2430c61c392ff95919b4d7fa471286f
Fix infinite loop in array join

diff -r 372cbd2cd243 -r abde5d2918cf modules/array.tp
--- a/modules/array.tp	Mon Aug 26 18:59:38 2013 -0700
+++ b/modules/array.tp	Mon Aug 26 19:50:02 2013 -0700
@@ -110,6 +110,7 @@
 			l <- length
 			while: { idx < l } do: {
 				str <- str . sep . (get: idx)
+				idx <- idx + 1
 			}
 			str
 		} else: {