# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1427170706 25200
# Node ID eb5f1fca9b7818e1d15c9c8318a936e4074566be
# Parent  fb54a3af9c86de78364b5c40e11dee8e99c22330
Fix infinite loop in foldr:with

diff -r fb54a3af9c86 -r eb5f1fca9b78 modules/array.tp
--- a/modules/array.tp	Sun Mar 22 22:06:50 2015 -0700
+++ b/modules/array.tp	Mon Mar 23 21:18:26 2015 -0700
@@ -91,6 +91,7 @@
 		idx <- length - 1
 		while: {idx >= 0} do: {
 			acc <- fun: acc (get: idx)
+			idx <- idx - 1
 		}
 		acc
 	}