equal
deleted
inserted
replaced
587 so it's possible to read alien (i.e. ms-dos) text as well. |
587 so it's possible to read alien (i.e. ms-dos) text as well. |
588 Redefined to not block forever if no cr is read." |
588 Redefined to not block forever if no cr is read." |
589 |
589 |
590 |answerStream char available "{ Class:SmallInteger }"| |
590 |answerStream char available "{ Class:SmallInteger }"| |
591 |
591 |
592 answerStream := WriteStream on:(self contentsSpecies uninitializedNew:80). |
592 answerStream := WriteStream on:(String uninitializedNew:80). |
593 [ |
593 [ |
594 available := self numAvailableForRead. |
594 available := self numAvailableForRead. |
595 available timesRepeat:[ |
595 available timesRepeat:[ |
596 char := super next. "we know that there is data" |
596 char := super next. "we know that there is data" |
597 char == Character cr ifTrue:[ |
597 char == Character cr ifTrue:[ |