From 7156dcbf6fa96b85705c970ea9451f79a08941d0 Mon Sep 17 00:00:00 2001 From: Juraj Kubelka Date: Tue, 10 Dec 2024 11:39:09 -0300 Subject: [PATCH] fix to be reviewed: `TonelReader>>#loadDefinitions` --- .../TonelReader.extension.st | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/GToolkit-PharoBasePatch-StrictSymbol-Overrides/TonelReader.extension.st b/src/GToolkit-PharoBasePatch-StrictSymbol-Overrides/TonelReader.extension.st index b1cdd9dcc..eae03811b 100644 --- a/src/GToolkit-PharoBasePatch-StrictSymbol-Overrides/TonelReader.extension.st +++ b/src/GToolkit-PharoBasePatch-StrictSymbol-Overrides/TonelReader.extension.st @@ -20,9 +20,9 @@ TonelReader >> loadDefinitions [ sort: [ :a :b | (definitionOrders at: a class) < (definitionOrders at: b class) ]. newCategories := self categoriesFrom: newDefinitions. - (newCategories anySatisfy: [:each | each sameContentAs: self package name]) - ifFalse: [ newCategories := newCategories copyWithFirst: self package name ]. - organization := MCOrganizationDefinition categories: newCategories. + (newCategories anySatisfy: [:each | each sameContentAs: (self package ifNotNil: #name)]) + ifFalse: [ newCategories := newCategories copyWithFirst: (self package ifNotNil: #name) ]. + organization := MCOrganizationDefinition categories: (newCategories reject: #isNil). definitions := (newDefinitions copyWithFirst: organization) sort ]