view testdictsetget.rhope @ 139:a68e6828d896

Global stores and transactions are working. Definately leaks memory on retries. Probably a fair number of bugs to work out. However, a basic test program works.
author Mike Pavone <pavone@retrodev.com>
date Fri, 19 Nov 2010 04:04:14 -0500
parents e09c2d1d6d5b
children
line wrap: on
line source



Main[]
{
	dict <- [[[[Dictionary[]
	]Set["foo", "bar"]
	]Set["bovine","moo"]
	]Set["food", "fight"]
	]Set["fool", "wise"]

	Print[[dict]Index["food"]]
	{ Print[[dict]Index["bovine"]]
	{ Print[[dict]Index["foo"]]
	{ Print[[dict]Index["fool"]]
	{
		Print[[[[Dictionary[]
		]Set["+@Foo", "bar"]
		]Set["+", "add"]
		]Index["+"]]
	}}}}
}