Mercurial > repos > tabletprog
diff modules/array.tp @ 377:93c28eee141e default tip
Merge
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 15 Aug 2015 22:45:33 -0700 |
parents | e857104bd183 810b6115c1d4 |
children |
line wrap: on
line diff
--- a/modules/array.tp Sat Aug 15 22:45:24 2015 -0700 +++ b/modules/array.tp Sat Aug 15 22:45:33 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