Class BlockNode

compileInLine: encoder block: inBlock

	statements do:

		[ :stmt | stmt compile: encoder block: inBlock.

			encoder genHigh: 15 low: 5 " pop top " ].

	encoder backUp