The Trunk: System-fbs.530.mcz

Frank Shearar uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-fbs.530.mcz

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

Name: System-fbs.530
Author: fbs
Time: 17 May 2013, 10:38:47.389 am
UUID: 57d1fbc2-25bf-4f2e-8762-3cb8d0da925a
Ancestors: System-fbs.529

This code reshuffle makes it visually much more obvious how Project >> #future:send:at:args: and MorphicProject >> #future:send:at:args: differ. (Hint: not a lot.)

=============== Diff against System-fbs.529 ===============

Item was changed:
  ----- Method: Project>>future:send:at:args: (in category 'futures') -----
  future: receiver send: aSelector at: deltaMSecs args: args
  "Send a message deltaSeconds into the future.  Answers a Promise that will be resolved at some time in the future."
+ | pr closure |
- | pr |
  pr := Promise new.
+ closure := [pr resolveWith: (receiver perform: aSelector withArguments: args)].
  deltaMSecs = 0
+ ifTrue: [self addDeferredUIMessage: closure]
- ifTrue: [
- self addDeferredUIMessage:
- [pr resolveWith: (receiver perform: aSelector withArguments: args)]
- ]
  ifFalse: [
  [ (Delay forMilliseconds: deltaMSecs) wait.
  self addDeferredUIMessage:
+ closure
- [pr resolveWith: (receiver perform: aSelector withArguments: args)]
  ] forkAt: Processor userSchedulingPriority + 1.
  ].
  ^pr
  !