compiler/PPCNotCharacterNode.st
changeset 515 b5316ef15274
parent 464 f6d77fee9811
--- 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: ')'
+! !
+