On Sat, Oct 06, 2012 at 03:25:58AM +0200, Holger Hans Peter Freyther wrote:
>
> does not work. Do you have an idea?
'self streams' returns 'nil' but 'streams first' will not be moved into
the last. I ended up doing the following. I fail to create a testcase that
is using ReadStream..
diff --git a/kernel/StreamOps.st b/kernel/StreamOps.st
index 9fd1769..0525e5f 100644
--- a/kernel/StreamOps.st
+++ b/kernel/StreamOps.st
@@ -158,7 +158,7 @@ Stream subclass: ConcatenatedStream [
<category: 'all'>
| adjust stream |
- stream := self stream.
+ stream := self stream ifNil: [streams first].
end + 1 = start ifTrue: [^''].
adjust := end <= startPos
ifTrue: [stream := last. lastStart]
_______________________________________________
help-smalltalk mailing list
[email protected]
https://lists.gnu.org/mailman/listinfo/help-smalltalk
