# HG changeset patch
# User Michael Pavone <pavone@retrodev.com>
# Date 1439432201 25200
# Node ID e857104bd18330dd197f94f469472358016894a6
# Parent  625b0aa9c204b23a520a67ba5807409d88ac8ea3
Added reverse method to arrays

diff -r 625b0aa9c204 -r e857104bd183 modules/array.tp
--- a/modules/array.tp	Wed Aug 12 19:13:52 2015 -0700
+++ b/modules/array.tp	Wed Aug 12 19:16:41 2015 -0700
@@ -71,6 +71,23 @@
 		}
 		self
 	}
+	
+	llMessage: reverse withVars: {
+		front <- int32_t
+		back <- int32_t
+		tmpo <- object ptr
+	} andCode: {
+		front <- 0
+		back <- size
+		while: { front < back } do: {
+			tmpo <- data get: front
+			data set: front (data get: back)
+			data set: back tmpo
+			front <- front + 1
+			back <- back - 1
+		}
+		self
+	}
 
 	llMessage: length withVars: {
 		intret <- obj_int32 ptr