diff samples/testarray.tp @ 377:93c28eee141e default tip

Merge
author Michael Pavone <pavone@retrodev.com>
date Sat, 15 Aug 2015 22:45:33 -0700
parents 810b6115c1d4
children
line wrap: on
line diff
--- a/samples/testarray.tp	Sat Aug 15 22:45:24 2015 -0700
+++ b/samples/testarray.tp	Sat Aug 15 22:45:33 2015 -0700
@@ -13,6 +13,8 @@
 		bar append: 28
 		bar append: 42
 		print: "" . ((sum: foo) + (sum: bar)) . "\n"
+		val <- bar pop
+		print: "popped off: " . val . ", new length: " . (bar length) . "\n"
 	}
 }