Send #sourceNode instead of #ast as there's no #ast in Pharo
...I was mistaken.
--- a/compiler/PPCCodeGenerator.st Thu Jun 18 06:07:40 2015 +0100
+++ b/compiler/PPCCodeGenerator.st Thu Jun 18 06:40:15 2015 +0100
@@ -211,7 +211,7 @@
visitActionNode: node
| blockNode blockBody blockNodesVar blockNeedsCollection blockMatches childValueVars |
- blockNode := node block ast deepCopy.
+ blockNode := node block sourceNode deepCopy.
self assert: blockNode arguments size == 1.
blockNodesVar := blockNode arguments first .
blockBody := blockNode body.
@@ -480,7 +480,7 @@
| child blockNode blockBody |
child := node child.
- blockNode := node block ast copy.
+ blockNode := node block sourceNode deepCopy.
blockBody := blockNode body.
"Block return value is return value of last statement.
@@ -538,7 +538,7 @@
]
"Created: / 02-06-2015 / 17:28:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 15-06-2015 / 19:03:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 18-06-2015 / 06:34:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
visitMessagePredicateNode: node