// test-gen.txt

to init_all =
	initSom
	init_list
	initcell
	def = list newatom OPER tkBB
	im = list newatom OPER tkBB
	initkeysym
	initlex
	startlex
	FI = 0
	FO = 1

to parse | f e =
	lex
	while tok != tkEOF
		if (tok == tkTO) | (tok == tkCOLON)
			f = top		// throw away flag
			e = ypop
			def = append def e
			cmode = 0
			genex e
		else
			f = top
			e = ypop
			im = append im e
			cmode = 1
//			genex e

to testgen =
	init_all
	parse
	prlist def nl
	prlist im nl
	runimm im
	showCode 3 CP-1

testgen



