# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1265723019 -3600
# Node ID 9ff55611fbd74f0650648543dca2998402ce6520
# Parent  f7a70529f86608a9a78ecde7d96ebbf55f785677
changed: #makePipe
    set handleType to #pipeFilePointer

diff -r f7a70529f866 -r 9ff55611fbd7 NonPositionableExternalStream.st
--- 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 $'
 ! !