Mercurial > repos > tabletprog

diff modules/array.tp @ 366:810b6115c1d4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add a pop method to array
author Michael Pavone <pavone@retrodev.com>
date Sat, 08 Aug 2015 21:13:26 -0700
parents 884cd5d54c0f
children 93c28eee141e
line wrap: on
line diff
--- a/modules/array.tp	Fri Aug 07 21:40:08 2015 -0700
+++ b/modules/array.tp	Sat Aug 08 21:13:26 2015 -0700
@@ -54,6 +54,16 @@
 		size <- size + 1
 		self
 	}
+	
+	llMessage: pop withVars: {
+	} andCode: {
+		if: size > 0 {
+			size <- size - 1
+			data get: size
+		} else: {
+			false
+		}
+	}
 
 	llMessage: resize withVars: {
 		newsize <- obj_uint32 ptr