The Inbox: System-dtl.983.mcz

David T. Lewis uploaded a new version of System to project The Inbox:
http://source.squeak.org/inbox/System-dtl.983.mcz

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

Name: System-dtl.983
Author: dtl
Time: 10 December 2017, 1:54:57.456518 pm
UUID: 0df950ab-8484-4d7e-bf0a-09d5450b3a0b
Ancestors: System-dtl.982

Fix logic for project selection in #tryOtherProjectForRecovery:

=============== Diff against System-dtl.982 ===============

Item was changed:
  ----- Method: Project class>>tryOtherProjectForRecovery: (in category 'error recovery') -----
  tryOtherProjectForRecovery: errorMessage
  "Try entering the parent project if it uses a different user interface. We determine this by comparing the project's class."
 
  | safeProject nextProject |
  nextProject := Project current.
  safeProject := nil.
  [safeProject notNil or: [nextProject isTopProject]] whileFalse: [
  nextProject := nextProject parent.
  (Project current isKindOf: nextProject class)
  ifFalse: [safeProject := nextProject]].
 
  "Parent project was not of a different type. Search through all known
  projects to find any one that is of different project type."
+ safeProject ifNil: [Smalltalk garbageCollect.
- safeProject ifNil: [
- Smalltalk garbageCollect.
  safeProject := Project allSubInstances
+ detect: [:proj | (proj isKindOf: Project current class) not
+ and: [proj class ~= Project]]
+ ifNone: []].
- detect: [ :proj | proj class ~= Project
- or: [ (proj isKindOf: Project current class) not ] ]
- ifNone: [ nil ] ].
-
  safeProject ifNotNil: [:p |
  p enterForEmergencyRecovery.
  "Active process will usually suspend after this."].!