1
0
Fork 0

GSM: Add an ensure block to always signal when we leave here

This commit is contained in:
Holger Hans Peter Freyther 2010-12-11 08:04:13 +01:00
parent 077cd9ac2d
commit eea1c7c377
1 changed files with 4 additions and 0 deletions

View File

@ -60,6 +60,7 @@ classes.'>
"Process all messages in a thread"
proc := [
[
[
[true] whileTrue: [
| msg |
@ -67,6 +68,9 @@ classes.'>
self dispatch: msg.
].
] on: SystemExceptions.EndOfStream do: [
'Server is disconnected' printNl.
].
] ensure: [
completeSem signal.
].
] fork.