Monday, November 08, 2010 at 12:05 AM.

---

system.verbs.builtins.stack.test

local (myStack, i);
myStack = stack.create ();
for i = 1 to 100 {
	stack.push (myStack, i);
	msg (i)};
stack.visit (myStack, @msg); <<display the value of each stack element
for i = 1 to 100 {
	if stack.pop (myStack) != (100 - i + 1) {
		scriptError ("Stacks are broken")};
	msg (i)};
stack.dispose (myStack)

---

This listing is for code that runs in the OPML Editor environment. I created these listings because I wanted the search engines to index it, so that when I want to look up something in my codebase I don't have to use the much slower search functionality in my object database. Dave Winer.