tests
testProcedureDefinition
	| proc |
	ph parseAndEval: '(define squared (lambda (x) (* x x)))'.
	proc := ph parseAndEval: #squared.
	self assert: proc params equals: #(#x).
	self assert: proc body equals: #(#* #x #x)