# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1045068823 -3600
# Node ID 0efa9d55fa047162eb6cfdb5d43e16dca9f5b222
# Parent  207a5640ff4eb5cd01e9b7e566a011ccef3fb7ed
Remove unused method var

diff -r 207a5640ff4e -r 0efa9d55fa04 PipeStream.st
--- a/PipeStream.st	Tue Feb 11 00:33:01 2003 +0100
+++ b/PipeStream.st	Wed Feb 12 17:53:43 2003 +0100
@@ -398,19 +398,17 @@
      This waits for the command to finish. 
      Use shutDown for a fast (nonBlocking) close."
 
-    |tpid|
+    filePointer notNil ifTrue:[
+        super closeFile.
+        OperatingSystem isMSDOSlike ifTrue:[
+            self terminatePipeCommand.
+        ].
 
-    filePointer notNil ifTrue:[
-	super closeFile.
-	OperatingSystem isMSDOSlike ifTrue:[
-	    self terminatePipeCommand.
-	].
-
-	filePointer := nil.
-	pid notNil ifTrue:[
-	    "/ wait for the pipe-command to terminate.
-	    self waitForPipeCommandWithTimeout:nil.
-	].
+        filePointer := nil.
+        pid notNil ifTrue:[
+            "/ wait for the pipe-command to terminate.
+            self waitForPipeCommandWithTimeout:nil.
+        ].
     ].
 
     "Modified: / 12.9.1998 / 16:51:04 / cg"
@@ -715,6 +713,7 @@
 !PipeStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.92 2002-04-09 14:46:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.93 2003-02-12 16:53:43 stefan Exp $'
 ! !
+
 PipeStream initialize!