Class Parser

findName: name

	name = 'true' ifTrue: [ ^ true ].

	name = 'false' ifTrue: [ ^ false ].

	name = 'nil' ifTrue: [^ nil ].



	^ Class at: name ifAbsent: [ 

		 self error: 'unrecognized name:' + name printString ]