Portability: Removed tests/asserts referring to BlockClosure
Due to historical reasons, there's no BlockClosure in Smalltalk/X,
the class is named Block. Conversely, there's no Block in Squeak/Pharo.
--- a/compiler/PPCCodeGen.st Tue Sep 08 09:15:35 2015 +0100
+++ b/compiler/PPCCodeGen.st Thu Sep 10 07:13:16 2015 +0100
@@ -173,13 +173,9 @@
stringOrBlock isString ifTrue: [
^ self codeAssignString: stringOrBlock to: variable
- ].
-
- (stringOrBlock isKindOf: BlockClosure) ifTrue: [
+ ] ifFalse:[
^ self codeAssignParsedValueOf: stringOrBlock to: variable
].
-
- self error: 'unknown argument'.
!
codeAssignParsedValueOf:aBlock to: variable
@@ -223,7 +219,6 @@
stringOrBlock isString ifTrue: [
self codeEvaluateAndAssignString: stringOrBlock to: variable
] ifFalse: [
- self assert: (stringOrBlock isKindOf: BlockClosure).
self codeEvaluateAndAssignParsedValueOf: stringOrBlock to: variable
]
!
--- a/compiler/tests/stx_goodies_petitparser_compiler_tests.st Tue Sep 08 09:15:35 2015 +0100
+++ b/compiler/tests/stx_goodies_petitparser_compiler_tests.st Thu Sep 10 07:13:16 2015 +0100
@@ -80,6 +80,7 @@
#'stx:goodies/petitparser/tests' "PPAbstractParserTest - superclass of PPCCodeGeneratorTest"
#'stx:goodies/sunit' "TestAsserter - superclass of FooScannerTest"
#'stx:libbasic' "LibraryDefinition - superclass of stx_goodies_petitparser_compiler_tests"
+ #'stx:libcompat'
)
!