displayStringOn: send displayStringOn: message

vonbecmann · Nov 7, 2023 · d57f92a · d57f92a
1 parent cb7eaf9
commit d57f92a
Show file tree

Hide file tree

Showing 4 changed files with 13 additions and 14 deletions.
diff --git a/repository/LinkedList-Core/IdentityOrderedPair.class.st b/repository/LinkedList-Core/IdentityOrderedPair.class.st
@@ -21,12 +21,11 @@ IdentityOrderedPair >> = aPair [
 { #category : #displaying }
 IdentityOrderedPair >> displayStringOn: aStream [
 
-	aStream
-		nextPut: $<;
-		print: first;
-		nextPutAll: ', ';
-		print: second;
-		nextPut: $>
+	aStream nextPut: $<.
+	first displayStringOn: aStream.
+	aStream nextPutAll: ', '.
+	second displayStringOn: aStream.
+	aStream nextPut: $>
 ]
 
 { #category : #comparing }

diff --git a/repository/LinkedList-Core/OrderedPair.class.st b/repository/LinkedList-Core/OrderedPair.class.st
@@ -60,12 +60,12 @@ OrderedPair >> = aPair [
 
 { #category : #displaying }
 OrderedPair >> displayStringOn: aStream [
-	aStream
-		nextPut: $(;
-		print: first;
-		nextPutAll: ', ';
-		print: second;
-		nextPut: $)
+
+	aStream nextPut: $(.
+	first displayStringOn: aStream.
+	aStream nextPutAll: ', '.
+	second displayStringOn: aStream.
+	aStream nextPut: $)
 ]
 
 { #category : #accessing }

diff --git a/repository/LinkedList-Tests/IdentityOrderedPairTest.class.st b/repository/LinkedList-Tests/IdentityOrderedPairTest.class.st
@@ -21,7 +21,7 @@ IdentityOrderedPairTest >> testDisplayString [
 	| one |
 	one := IdentityOrderedPair first: 'A' second: 1.
 
-	self assert: one displayString equals: '<''A'', 1>'
+	self assert: one displayString equals: '<A, 1>'
 ]
 
 { #category : #tests }

diff --git a/repository/LinkedList-Tests/OrderedPairTest.class.st b/repository/LinkedList-Tests/OrderedPairTest.class.st
@@ -21,7 +21,7 @@ OrderedPairTest >> testDisplayString [
 	| one |
 	one := OrderedPair first: 'A' second: 1.
 
-	self assert: one displayString equals: '(''A'', 1)'
+	self assert: one displayString equals: '(A, 1)'
 ]
 
 { #category : #tests }