--- a/compiler/PPCListNode.st Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCListNode.st Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:goodies/petitparser/compiler' }"
+"{ NameSpace: Smalltalk }"
+
PPCNode subclass:#PPCListNode
instanceVariableNames:'children'
classVariableNames:''
@@ -59,15 +61,6 @@
^ 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
! !
!PPCListNode class methodsFor:'documentation'!