[St] Slight improvements to RosettaSuite and Placeholder classes

Author: codeZeilen

rosetta-test-s/RosettaS-Core/RosettaSuite.class.st

@@ -94,7 +94,6 @@ RosettaSuite >> createPlaceholder: aConsCell [
 		at: newPlaceholder placeholderName asSymbol
 		put: newPlaceholder.
 
-	
 	newPlaceholder
 		function: (placeholderFunctions at: aConsCell first ifAbsent: nil).
 
@@ -156,7 +155,7 @@ RosettaSuite >> gatherBridgeFunctions [
 	placeholderMethods := placeholderMethods groupBy: [:m | 
 		m pragmas 
 			detect: [:p | p keyword = #rosettaPlaceholderName:]
-			ifFound: [:p | p argumentAt: 1]
+			ifFound: [:p | (p argumentAt: 1) asSymbol]
 			ifNone: [self error]].
 	(placeholderMethods select: [:group | group size > 1]) keysAndValuesDo: [:placeholderName :methods | 
 		Notification signal: 'Duplicate placeholder method for: ' , placeholderName].
@@ -248,18 +247,6 @@ RosettaSuite >> rosettaLibrarySource [
 		rosettaFile contents]
 ]
 
-{ #category : #running }
-RosettaSuite >> rosettaRun [
-
-	"self assert: self suite notNil.
-	self 
-		fillPlaceholders;
-		installPlaceholders.
-	
-	self allTests do: [:rosettaTest |
-		self rosettaRunTest: rosettaTest]."
-]
-
 { #category : #running }
 RosettaSuite >> rosettaRunTest: aRosettaTest [
 

rosetta-test-s/RosettaS-Interpreter/RosettaPlaceholder.class.st

@@ -75,6 +75,6 @@ RosettaPlaceholder >> printOn: aStream [
 { #category : #evaluating }
 RosettaPlaceholder >> value: values [
 
-	self assert: self function notNil.
+	self assert: self function notNil description: 'Function ' , placeholderName , 'is not defined.'.
 	^ self function valueWithArguments: values , {self env}
 ]