Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1218.mcz
==================== Summary ====================
Name: Tools-ct.1218 Author: ct Time: 4 June 2023, 8:57:23.493452 pm UUID: c68caf30-85c7-5a47-aa08-07f57ca13d30 Ancestors: Tools-ct.1216
Fixes regression in InspectorField class>>#generateExpressionFrom:argumentNames: from last version. Of course, we must first copy the argument before reusing it. Sorry for the noise.
=============== Diff against Tools-ct.1216 ===============
Item was changed: ----- Method: InspectorField class>>generateExpressionFrom:argumentNames: (in category 'support') ----- generateExpressionFrom: aBlock argumentNames: argumentNames
| blockNode arguments variables context receiver | self flag: #experimental. blockNode := aBlock decompile veryDeepCopy. "some literals are singletons, see #becomeForward: below" arguments := blockNode arguments collect: #name. variables := Dictionary new. variables at: #true put: true; at: #false put: false; at: #nil put: nil. receiver := aBlock receiver. receiver class allInstVarNames withIndexDo: [:clsName :index | variables at: clsName put: (receiver instVarAt: index)]. context := aBlock outerContext. context tempNames withIndexDo: [:tmpName :index | variables at: tmpName put: (context namedTempAt: index)]. blockNode nodesDo: [:node | self flag: #ct. "Should we introduce #nodesCollect: instead of using dangerous #becomeForward:?" { [node isVariableNode not]. - [blockNode arguments includes: node]. "nodes that were already renamed" [| argumentIndex | argumentIndex := arguments indexOf: node name. argumentIndex isZero ifFalse: [node name: (argumentNames at: argumentIndex)]; not]. + [blockNode arguments includes: node]. "nodes that were already renamed" [variables at: node name ifPresent: [:value | value isLiteral ifTrue: [node becomeForward: (LiteralNode new key: value)]; yourself] ifAbsent: [^ nil]]. } detect: #value ifNone: [^ nil]]. ^ String streamContents: [:stream | blockNode printStatementsOn: stream indent: 0].!
packages@lists.squeakfoundation.org