adding support for blocks in pipeTo: .

 Author:    mica-yl <7644696+mica-yl@users.noreply.github.com>

Author: mica-yl

PharoFunctional-Tests/FunctionalTest.class.st

@@ -56,8 +56,12 @@ FunctionalTest >> testCycle [
 
 { #category : #tests }
 FunctionalTest >> testPipeTo [
-	self assert: (1 +> [ :x | x+1] ) equals: 2.
-	self assert: ({1. 2.} +> [ :a| a sum ] )  equals: 3.
+	|inc|.
+	inc:=[ :x | x+1].
+	self assert: (1 +> inc  ) equals: 2.
+	self assert: ([1] +> inc +> inc ) equals: 3.
+	self assert: ([2*2-2] +> inc +> inc ) equals: 4.
+	self assert: ({3. 2.} +> [ :a| a sum ] )  equals: 5.
 ]
 
 { #category : #tests }

PharoFunctional/Object.extension.st

@@ -47,5 +47,5 @@ Object >> nilOr: aBlock [
 Object >> pipeTo: aBlock [ 
 	"pipe : pass value to function ."
 	"see : +>"
-  	^ aBlock value: self.
+  	^ aBlock value: self value.
 ]