--- a/NonPositionableExternalStream.st Tue Feb 09 14:42:54 2010 +0100
+++ b/NonPositionableExternalStream.st Tue Feb 09 14:43:39 2010 +0100
@@ -156,15 +156,13 @@
pipe isNil ifTrue:[
"/ ok, maybe someone has forgotten to close a stream; enforce finalization and try again
'makePipe: enforcing finalization to close any open streams' infoPrintCR.
- ObjectMemory garbageCollect.
+ ObjectMemory garbageCollect; finalize.
pipe := OperatingSystem makePipe.
].
pipe notNil ifTrue:[
- rs := self forReadingFromFileDescriptor:(pipe at:1).
- rs buffered:false.
- ws := self forWritingToFileDescriptor:(pipe at:2).
- ws buffered:false.
+ rs := self forFileDescriptor:(pipe at:1) mode:#readonly buffered:false handleType:#pipeFilePointer.
+ ws := self forFileDescriptor:(pipe at:2) mode:#writeonly buffered:false handleType:#pipeFilePointer.
^ Array with:rs with:ws
].
^ nil
@@ -559,9 +557,9 @@
!NonPositionableExternalStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.59 2010-02-04 09:13:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.60 2010-02-09 13:43:39 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.59 2010-02-04 09:13:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NonPositionableExternalStream.st,v 1.60 2010-02-09 13:43:39 stefan Exp $'
! !