Объясните фрагмент кода Smalltalk?

Я не могу понять этот фрагмент кода Smalltalk:

[(line := self upTo: Character cr) size = 0] whileTrue.

Кто-нибудь может помочь объяснить это?