Thanks for your comment on the blog, Paolo.
In return I submit a comment patch :-)
Good night,
s.
diff --git a/kernel/FilePath.st b/kernel/FilePath.st
index 1f4f2dc..765d4f2 100644
--- a/kernel/FilePath.st
+++ b/kernel/FilePath.st
@@ -647,8 +647,8 @@ size and timestamps.'>
]
withReadStreamDo: aBlock [
- "Invoke aBlock with a reading stream open on me, closing it
- when the dynamic extent of aBlock ends."
+ "Answer the result of invoking aBlock with a reading stream
+ open on me, closing it when the dynamic extent of aBlock ends."
<category: 'file operations'>
| stream |
stream := self readStream.
@@ -670,8 +670,8 @@ size and timestamps.'>
]
withWriteStreamDo: aBlock [
- "Invoke aBlock with a writing stream open on me, closing it
- when the dynamic extent of aBlock ends."
+ "Answer the result of invoking aBlock with a writing stream
+ open on me, closing it when the dynamic extent of aBlock ends."
<category: 'file operations'>
| stream |
stream := self writeStream.
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
