Adds extra check before assuming compiledMethod of SBStBasicMethod is…

… not self
hpi-swa · Sep 12, 2023 · f74b2b5 · f74b2b5
1 parent 5176c2e
commit f74b2b5
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 6 deletions.
diff --git a/packages/Sandblocks-Core/SBExploriantsView.class.st b/packages/Sandblocks-Core/SBExploriantsView.class.st
@@ -61,8 +61,8 @@ SBExploriantsView >> containerRow [
 		changeTableLayout;
 		listDirection: #leftToRight;
 		layoutInset: 8;
-		cellGap: 8;
-		cellInset: 5;
+		cellGap: 3;
+		cellInset: 3;
 		borderWidth: 0
 ]
 
@@ -85,9 +85,9 @@ SBExploriantsView >> initialize [
 		changeTableLayout;
 		color: Color white;
 		listDirection: #topToBottom;
-		layoutInset: 8;
-		cellGap: 8;
-		cellInset: 5;
+		layoutInset: 3;
+		cellGap: 4;
+		cellInset: 2;
 		hResizing: #shrinkWrap;
 		vResizing: #shrinkWrap)
 ]

diff --git a/packages/Sandblocks-Smalltalk/SBStBasicMethod.class.st b/packages/Sandblocks-Smalltalk/SBStBasicMethod.class.st
@@ -23,7 +23,9 @@ SBStBasicMethod class >> selector: aSymbol arguments: aCollection class: aClass
 { #category : #comparing }
 SBStBasicMethod >> = anotherSBStBasicMethod [
 
-	^ anotherSBStBasicMethod class = self class and: [anotherSBStBasicMethod compiledMethod equivalentTo: self compiledMethod]
+	^ anotherSBStBasicMethod class == self class 
+		and: [anotherSBStBasicMethod compiledMethod ~= anotherSBStBasicMethod]
+		and: [anotherSBStBasicMethod compiledMethod equivalentTo: self compiledMethod]
 ]
 
 { #category : #accessing }