diff -r 54b3bc9e3987 -r 20598d7ce9fa compiler/PPCAbstractCharacterNode.st --- a/compiler/PPCAbstractCharacterNode.st Tue Apr 21 17:20:11 2015 +0100 +++ b/compiler/PPCAbstractCharacterNode.st Thu Apr 30 23:43:14 2015 +0200 @@ -12,10 +12,6 @@ !PPCAbstractCharacterNode methodsFor:'accessing'! -acceptsEpsilon - ^ false -! - character ^ character ! @@ -30,6 +26,10 @@ !PPCAbstractCharacterNode methodsFor:'analysis'! +acceptsEpsilon + ^ false +! + firstCharSet ^ PPCharSetPredicate on: [:e | e = character ] ! ! @@ -62,18 +62,6 @@ compiler add: 'ifFalse: [ self error: ''', character asInteger asString, ' expected'' at: context position ] '. compiler add: 'ifTrue: [ context next ].'. compiler dedent. -! - -compileWith: compiler effect: effect id: id - self start: compiler id: id. - self body: compiler. - ^ self stop: compiler. -! - -compileWith: compiler id: id - self start: compiler. - self body: compiler. - ^ compiler stopMethod. ! ! !PPCAbstractCharacterNode class methodsFor:'documentation'!