[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Help-smalltalk] Issue with 'Kernel.ConcatenatedStream' and gst-conv
|
From: |
Holger Hans Peter Freyther |
|
Subject: |
Re: [Help-smalltalk] Issue with 'Kernel.ConcatenatedStream' and gst-convert |
|
Date: |
Sat, 6 Oct 2012 03:35:59 +0200 |
|
User-agent: |
Mutt/1.5.21 (2010-09-15) |
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]