--- a/compiler/PPCDelegateNode.st Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCDelegateNode.st Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:goodies/petitparser/compiler' }"
+"{ NameSpace: Smalltalk }"
+
PPCNode subclass:#PPCDelegateNode
instanceVariableNames:'child'
classVariableNames:''
@@ -45,16 +47,6 @@
changeStatus change.
self replace: child with: inlinedNode.
]
-!
-
-optimize: params status: changeStatus
- | retval |
- retval := self.
-
- retval := retval rewrite: params status: changeStatus.
- retval := retval inline: params status: changeStatus.
-
- ^ retval
! !
!PPCDelegateNode methodsFor:'transformation'!