# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1441865596 -3600
# Node ID 0b8c75af51a0a312fe6a46e280fbdedd88bc84c9
# Parent  679fd1f9a25bfc68d00073b69fb1bd4378c3f373
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.

diff -r 679fd1f9a25b -r 0b8c75af51a0 compiler/PPCCodeGen.st
--- 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 
     ]
 !
diff -r 679fd1f9a25b -r 0b8c75af51a0 compiler/tests/stx_goodies_petitparser_compiler_tests.st
--- 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'
     )
 !