#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Fri, 29 Dec 2017 12:50:59 +0100
changeset 4554 41d1d0047772
parent 4553 2ca69f94e1c5
child 4555 996264459201
#BUGFIX by cg class: TerminalSession changed: #closeStreams
TerminalSession.st
--- a/TerminalSession.st	Fri Dec 29 12:49:54 2017 +0100
+++ b/TerminalSession.st	Fri Dec 29 12:50:59 2017 +0100
@@ -180,19 +180,21 @@
 !
 
 closeStreams
+    |s|
+
     self stopReaderProcess.
 
-    inStream notNil ifTrue:[
-        inStream isStream ifTrue:[inStream close].
-        inStream := nil
+    (s := inStream) notNil ifTrue:[
+        inStream := nil.
+        s isStream ifTrue:[s close].
     ].
-    outStream notNil ifTrue:[
-        outStream close.
-        outStream := nil
+    (s := outStream) notNil ifTrue:[
+        outStream := nil.
+        s close.
     ].
-    errStream notNil ifTrue:[
-        errStream close.
-        errStream := nil
+    (s := errStream) notNil ifTrue:[
+        errStream := nil.
+        s close.
     ].
 !