--- a/compiler/PPCInlineNotLiteralNode.st Mon Nov 24 00:09:23 2014 +0000
+++ b/compiler/PPCInlineNotLiteralNode.st Wed Apr 15 11:28:09 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:goodies/petitparser/compiler' }"
+"{ NameSpace: Smalltalk }"
+
PPCNotLiteralNode subclass:#PPCInlineNotLiteralNode
instanceVariableNames:''
classVariableNames:''
@@ -7,22 +9,6 @@
category:'PetitCompiler-Nodes'
!
-!PPCInlineNotLiteralNode methodsFor:'accessing'!
-
-literal
-
- ^ literal
-!
-
-literal: anObject
-
- literal := anObject
-!
-
-prefix
- ^ #notLit
-! !
-
!PPCInlineNotLiteralNode methodsFor:'as yet unclassified'!
compileWith: compiler effect: effect id: id
@@ -45,14 +31,6 @@
^ self
!
-firstCharParser
- ^ literal first asParser not
-!
-
-firstCharSet
- ^ PPCharSetPredicate on: [:e | true ]
-!
-
printOn: aStream
aStream nextPutAll: #inlined.
super printOn: aStream.