Mercurial > repos > tabletprog
diff modules/array.tp @ 366:810b6115c1d4
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