--- a/compiler/PPCCodeGenerator.st Thu Jun 18 06:40:15 2015 +0100
+++ b/compiler/PPCCodeGenerator.st Thu Jun 18 21:20:15 2015 +0100
@@ -211,7 +211,7 @@
visitActionNode: node
| blockNode blockBody blockNodesVar blockNeedsCollection blockMatches childValueVars |
- blockNode := node block sourceNode deepCopy.
+ blockNode := node block sourceNode copy.
self assert: blockNode arguments size == 1.
blockNodesVar := blockNode arguments first .
blockBody := blockNode body.
@@ -304,7 +304,7 @@
compiler code: blockBody.
]
- "Modified: / 17-06-2015 / 16:43:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 16-06-2015 / 07:41:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
visitAndNode: node
@@ -480,7 +480,7 @@
| child blockNode blockBody |
child := node child.
- blockNode := node block sourceNode deepCopy.
+ blockNode := node block sourceNode copy.
blockBody := blockNode body.
"Block return value is return value of last statement.