// test-sym.txt  test symtab-s.txt

to putGlobal s1 | a =
	a = install s1
	setType a tyGVAR
	setRef a a

to putLocal s1 | a =
	a = install s1
	enterLocal a

to testlocal | a =
	init_symtab
	putLocal "a"
	putLocal "b"
	putLocal "cisthree"
	dumpLocal

to search s1 | idx =
	idx = install s1
	prints getName idx space
	print getType idx nl

to testglobal | a =
	init_symtab
	putGlobal "x"
	putGlobal "y"
	putLocal "a"
	putLocal "b"
	dumpSym2
	search "b"
	search "y"
	putLocal "y"	// test shadow global
	dumpSym2
	dumpLocal
	clearLocal
	dumpSym2

//testlocal
testglobal
