The Trunk: Kernel-jcg.439.mcz

Joshua Gargus uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-jcg.439.mcz

==================== Summary ====================

Name: Kernel-jcg.439
Author: jcg
Time: 6 April 2010, 1:42:28.455 am
UUID: 6055c684-bed4-44a4-9da3-a55fc22de5b6
Ancestors: Kernel-jcg.438

Fix Promise to address failing test added in KernelTests-jcg.146.

=============== Diff against Kernel-jcg.438 ===============

Item was changed:
  ----- Method: Promise>>waitTimeoutMSecs: (in category 'waiting') -----
  waitTimeoutMSecs: msecs
  "Wait for at most the given number of milliseconds for this promise to resolve. Answer true if it is resolved, false otherwise."
  | sema delay |
  sema := Semaphore new.
+ self whenResolved: [sema signal].
- self whenComplete:[sema signal].
  delay := Delay timeoutSemaphore: sema afterMSecs: msecs.
  [sema wait] ensure: [delay unschedule].
  ^isResolved!