GSM: Add an ensure block to always signal when we leave here
This commit is contained in:
parent
077cd9ac2d
commit
eea1c7c377
|
@ -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.
|
||||
|
|
Reference in New Issue