[etoys-dev] Etoys: System-bf.39.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of System to project Etoys:
http://source.squeak.org/etoys/System-bf.39.mcz

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

Name: System-bf.39
Author: bf
Time: 13 September 2010, 8:07:27 pm
UUID: bf586247-e3a4-4cfd-9526-79bbd108f042
Ancestors: System-bf.38

preserve loaded update numbers when setting new version

=============== Diff against System-bf.38 ===============

Item was changed:
  ----- Method: SystemVersion class>>newVersion: (in category 'instance creation') -----
  newVersion: versionName
  	| newVersion |
+ 	newVersion := self new version: versionName.
+ 	self current updates do: [:n |
+ 		n <=  self current highestUpdate
+ 			ifTrue: [newVersion registerUpdate: n]].
- 	newVersion _ self new version: versionName.
  	newVersion
  		highestUpdate: self current highestUpdate.
+ 	Current := newVersion
- 	Current _ newVersion
  !