Class Parser

back
skipBlanks  | cc |

	[ cc <- self currentChar.

	  cc notNil and: [ cc isBlank ] ]

			whileTrue: [ index <- index + 1 ].

	(cc notNil and: [ cc = $" ] )

		ifTrue: [ self skipComment ]