Removed the specimen registry implementation and replaced it with the somewhat simpler specimen reference.

Author: codeZeilen

packages/Babylonian-Core.package/BPActiveSpecimenRegistry.class/class/cleanUp..st

@@ -4,7 +4,7 @@ newExpectedResultObject
 	| result |
 	self expectedResult isSymbol ifTrue: [
 		^ self method methodClass perform: self expectedResult].
-	(self isLiveSpecimenReference: self expectedResult) ifTrue: [
+	self expectedResult isLiveSpecimenReference ifTrue: [
 		^ self resolveLiveSpecimen: self expectedResult]. 
 
 	result := Compiler evaluate: self expectedResult.

packages/Babylonian-Core.package/BPActiveSpecimenRegistry.class/class/default.st

@@ -29,7 +29,7 @@
 		"method" : "pre 9/30/2020 09:54",
 		"method:" : "pre 9/30/2020 09:54",
 		"morphClass" : "pre 9/30/2020 10:40",
-		"newExpectedResultObject" : "pre 7/19/2022 15:45",
+		"newExpectedResultObject" : "pre 1/10/2023 16:18",
 		"prepareRunState" : "pre 5/3/2021 12:15",
 		"printOn:" : "jb 12/7/2020 18:10",
 		"probes" : "lu 12/1/2021 07:36",

packages/Babylonian-Core.package/BPActiveSpecimenRegistry.class/methodProperties.json

@@ -3,6 +3,6 @@ argumentScriptStringAt: index
 
 	| value |
 	value := self argumentScripts at: index.
-	^ (self isLiveSpecimenReference: value)
-		ifTrue: [(self resolveLiveSpecimen: value) printString]
+	^ value isLiveSpecimenReference
+		ifTrue: [self receiverConstructor printString]
 		ifFalse: [value]

packages/Babylonian-Core.package/BPActiveSpecimenRegistry.class/properties.json

@@ -2,6 +2,6 @@ accessing
 liveSpecimen
 
 	^ ((self argumentScripts , {self receiverConstructor}) 
-		select: [:aScript | self isLiveSpecimenReference: aScript])
+		select: [:aScript | aScript isLiveSpecimenReference])
 		select: [:specimen | specimen notNil]
 		thenCollect: [:aSpecimen | self resolveLiveSpecimen: aSpecimen]

packages/Babylonian-Core.package/BPExample.class/instance/newExpectedResultObject.st

@@ -1,4 +1,4 @@
 accessing
 liveSpecimenAt: anIndex
-	(self isLiveSpecimenReference: (self argumentScripts at: anIndex)) ifFalse: [^ nil].
+	(self argumentScripts at: anIndex) isLiveSpecimenReference ifFalse: [^ nil].
 	^ self resolveLiveSpecimen: (self argumentScripts at: anIndex)