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

---

system.verbs.builtins.stack.pop

on pop (adrStack) {
	local (top = adrStack^.top);
	if top <= 0 {
		scriptError ("Can't pop the stack because there are no items in the stack.")};
	local (adrElement = @adrstack^.vals.["item" + top]);
	val = adrElement^;
	delete (adrElement);
	adrStack^.top = top - 1;
	return (val)}

---

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.