Class Parser

skipComment  | cc |

	[ index <- index + 1.

	  cc <- self currentChar.

	  cc isNil 

		ifTrue: [ ^ self error: 'unterminated comment'].

	  cc ~= $" ] whileTrue: [ nil ].

	self nextChar. self skipBlanks