diff -r 1e45d3c96ec5 -r b5316ef15274 compiler/PPCNotCharacterNode.st --- a/compiler/PPCNotCharacterNode.st Fri Jul 24 15:06:54 2015 +0100 +++ b/compiler/PPCNotCharacterNode.st Mon Aug 17 12:13:16 2015 +0100 @@ -11,7 +11,7 @@ !PPCNotCharacterNode methodsFor:'accessing'! -prefix +defaultName ^ #notChar ! ! @@ -38,3 +38,17 @@ ^ retval ! ! +!PPCNotCharacterNode methodsFor:'printing'! + +printNameOn: aStream + super printNameOn: aStream. + + character = $" ifTrue: [ + "this is hack to allow for printing '' in comments..." + aStream nextPutAll: ', '; nextPutAll: '$'''''. + ^ self + ]. + + aStream nextPutAll: ', not('; print: character; nextPutAll: ')' +! ! +