Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1425.mcz
==================== Summary ====================
Name: System-mt.1425 Author: mt Time: 28 September 2023, 10:22:20.27702 am UUID: c446d3d6-39ea-e74f-84b2-dcf1487575eb Ancestors: System-mt.1424
Complements Collections-mt.1051
=============== Diff against System-mt.1424 ===============
Item was changed: ----- Method: SmartRefStream>>next (in category 'read write') ----- next + "Really write three objects: (version, class structure, object). But only when called from the outside. NOTE THAT we do not have to #rehash anything here. See implementors of #comeFullyUpOnReload:. " - "Really write three objects: (version, class structure, object). But only when called from the outside. "
| version ss object | ^ topCall == nil ifTrue: [topCall := #marked. version := super next. version class == SmallInteger ifFalse: [^ version]. "version number, else just a regular object, not in our format, " self checkCrLf. ss := super next. ss class == Array ifFalse: [^ ss]. "just a regular object" (ss at: 1) = 'class structure' ifFalse: [^ ss]. + structures := ss at: 2. - structures := (ss at: 2) rehash. superclasses := (ss size > 3 and: [(ss at: 3) = 'superclasses']) + ifTrue: [ss at: 4] "class name -> superclass name" - ifTrue: [(ss at: 4) rehash] "class name -> superclass name" ifFalse: [Dictionary new]. (self verifyStructure = 'conversion method needed') ifTrue: [^ nil]. object := super next. "all the action here" self restoreClassInstVars. "for UniClasses. version 4"
topCall := nil. "reset it" object] ifFalse: [super next] !
packages@lists.squeakfoundation.org