11 lines
295 B
Smalltalk
11 lines
295 B
Smalltalk
|
FileLocator home / aFilename readStreamDo: [ :stream |
|
||
|
|
[ stream atEnd ] whileFalse: [
|
||
|
|
| line |
|
||
|
|
((line := stream nextLine) beginsWith: '>')
|
||
|
|
ifTrue: [
|
||
|
|
Transcript
|
||
|
|
cr;
|
||
|
|
show: (line copyFrom: 2 to: line size);
|
||
|
|
show: ': ' ]
|
||
|
|
ifFalse: [ Transcript show: line ] ] ]
|