Hi,
Here is a small patch that fix the namespace of ProcessBeingTerminated.
Gwen
>From 842ba22c7bdb2c80b720266de461ede9280fa2fc Mon Sep 17 00:00:00 2001
From: Gwenael Casaccio <gwenael.casac...@gmail.com>
Date: Tue, 15 Apr 2014 21:17:41 +0200
Subject: [PATCH 3/3] Fix namespace for ProcessBeingTerminated
2014-04-15 Gwenael Casaccio <gwenael.casac...@gmail.com>
* kernel/Semaphore.st: Use the correct name for ProcessBeingTerminated
exception.
---
ChangeLog | 5 +++++
kernel/Semaphore.st | 2 +-
2 files changed, 6 insertions(+), 1 deletion(-)
diff --git a/ChangeLog b/ChangeLog
index 1bf20f6..16bdf32 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2014-04-15 Gwenael Casaccio <gwenael.casac...@gmail.com>
+
+ * kernel/Semaphore.st: Use the correct name for ProcessBeingTerminated
+ exception.
+
2014-04-12 Gwenael Casaccio <gwenael.casac...@gmail.com>
* kernel/ContextPart.st: Add ctxtFlags variable and check if ccall flag
diff --git a/kernel/Semaphore.st b/kernel/Semaphore.st
index cf8c6a7..7d8a89f 100644
--- a/kernel/Semaphore.st
+++ b/kernel/Semaphore.st
@@ -75,7 +75,7 @@ I also provide some methods for implementing critical sections.'>
thanks to superoperators."
c := #(nil).
ownedSem := [c := thisContext. self wait]
- on: ProcessBeingTerminated
+ on: SystemExceptions.ProcessBeingTerminated
do: [:ex | ownedSem := c at: 1. ex pass].
ownedSem == self ifTrue: [aBlock value]]
ensure: [ownedSem == self ifTrue: [self signal]]
--
1.8.3.2
_______________________________________________
help-smalltalk mailing list
help-smalltalk@gnu.org
https://lists.gnu.org/mailman/listinfo/help-smalltalk
