From 8333092be74fd6b6909d6a3025d5d4b5fdb8433a Mon Sep 17 00:00:00 2001 From: Boris Shingarov Date: Thu, 21 Nov 2024 07:52:29 -0500 Subject: [PATCH] [PreSmalltalks] Revert introduction of useless String>>syms --- src/PreSmalltalks-Substitutions/String.extension.st | 5 ----- src/PreSmalltalks-Tests/SubableTest.class.st | 5 ----- 2 files changed, 10 deletions(-) diff --git a/src/PreSmalltalks-Substitutions/String.extension.st b/src/PreSmalltalks-Substitutions/String.extension.st index 72fc9e4d7..3fba9fff9 100644 --- a/src/PreSmalltalks-Substitutions/String.extension.st +++ b/src/PreSmalltalks-Substitutions/String.extension.st @@ -14,8 +14,3 @@ String >> substa: f [ String >> substf: f [ ^(f value: self) subSymbol: self ] - -{ #category : #'*PreSmalltalks-Substitutions' } -String >> syms [ - ^{self} -] diff --git a/src/PreSmalltalks-Tests/SubableTest.class.st b/src/PreSmalltalks-Tests/SubableTest.class.st index ff34ce55d..664110799 100644 --- a/src/PreSmalltalks-Tests/SubableTest.class.st +++ b/src/PreSmalltalks-Tests/SubableTest.class.st @@ -54,11 +54,6 @@ SubableTest >> testStringSubstf [ self assert: ('a' substf: [:_|nil]) equals: 'a' ] -{ #category : #'tests - string' } -SubableTest >> testStringSyms [ - self assert: ('a' syms includes: 'a') -] - { #category : #'tests - string' } SubableTest >> testStringsSubsta [ self assert: ({'big pig' . 'can dig'} substa: #asCamelCase) equals: {'BigPig' . 'CanDig'}