summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-08 15:55:01 +0100
committerBenjamin Franzke <benjaminfranzke@googlemail.com>2012-11-08 15:55:01 +0100
commit80c9333a5987997362753f992b4d5b665033e6b3 (patch)
treef47d175496172088a8dc668466738d0fe81347a9
parent14d9287d7945c25eb06017d83dec4c45a55f2dba (diff)
downloadwbs-80c9333a5987997362753f992b4d5b665033e6b3.tar.gz
wbs-80c9333a5987997362753f992b4d5b665033e6b3.tar.bz2
wbs-80c9333a5987997362753f992b4d5b665033e6b3.zip
pd_client: Close streams
-rw-r--r--pd_client.pl2
1 files changed, 1 insertions, 1 deletions
diff --git a/pd_client.pl b/pd_client.pl
index 4938dd4..72742e6 100644
--- a/pd_client.pl
+++ b/pd_client.pl
@@ -7,7 +7,7 @@ start(Module, Host, Port):-
socket_connect(Socket, 'AF_INET'(HostAddress, Port),
StreamIn, StreamOut),
launch(Module, StreamIn, StreamOut),
- socket_close(Socket).
+ close(StreamIn), close(StreamOut), socket_close(Socket).
launch(Module, StreamIn, StreamOut) :-
atom_concat('rules/', Module, Path), consult(Path),