The Trunk: System-mt.904.mcz

Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-mt.904.mcz

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

Name: System-mt.904
Author: mt
Time: 19 August 2016, 6:37:13.841803 pm
UUID: 19e7a30a-d90c-9843-ada7-c3a6533cb333
Ancestors: System-mt.903

Adds some guards when setting a new system version since that description is used for the automated building process.

=============== Diff against System-mt.903 ===============

Item was changed:
  ----- Method: SystemVersion class>>newVersion: (in category 'instance creation') -----
  newVersion: versionName
  | newVersion |
+
+ self assert: (versionName beginsWith: 'Squeak').
+
  newVersion := self new version: versionName.
+
+ self assert: newVersion majorVersionNumber notNil.
+ self assert: newVersion minorVersionNumber notNil.
+ self assert: newVersion isSqueak.
+
+ self assert: (#(isRelease isAlpha isFeatureFreeze isCodeFreeze isReleaseCandidate)
+ anySatisfy: [:sel | newVersion perform: sel]).
+
+ newVersion highestUpdate: self current highestUpdate.
- newVersion
- highestUpdate: self current highestUpdate.
  Current := newVersion
  !

Item was changed:
  ----- Method: SystemVersion>>majorVersionNumber (in category 'accessing') -----
  majorVersionNumber
 
+ (version indexOf: $.) = 0 ifTrue: [^ nil].
  ^ (version copyFrom: 'Squeak' size to: (version indexOf: $.)) asInteger!

Item was changed:
  ----- Method: SystemVersion>>minorVersionNumber (in category 'accessing') -----
  minorVersionNumber
 
  | pointIndex |
  pointIndex := version indexOf: $..
+ pointIndex = 0 ifTrue: [^ nil].
  ^ (version
  copyFrom: pointIndex
  to: (self isRelease
  "e.g. Squeak5.1"
  ifTrue: [version size]
  "e.g. Squeak5.1rc5"
  ifFalse: [(pointIndex+1 to: version size) detect: [:ea | (version at: ea) isDigit not]])) asInteger!