equal
deleted
inserted
replaced
17 |
17 |
18 character: char |
18 character: char |
19 character := char |
19 character := char |
20 ! |
20 ! |
21 |
21 |
22 prefix |
22 defaultName |
23 ^ #char |
23 ^ #char |
24 ! ! |
24 ! ! |
25 |
25 |
26 !PPCCharacterNode methodsFor:'analysis'! |
26 !PPCCharacterNode methodsFor:'analysis'! |
27 |
27 |
57 "this is hack to allow for printing '' in comments..." |
57 "this is hack to allow for printing '' in comments..." |
58 aStream nextPutAll: ', '; nextPutAll: '$'''''. |
58 aStream nextPutAll: ', '; nextPutAll: '$'''''. |
59 ^ self |
59 ^ self |
60 ]. |
60 ]. |
61 |
61 |
62 aStream nextPutAll: ', not('; print: character; nextPutAll: ')' |
62 aStream nextPutAll: ', '; print: character. |
63 ! ! |
63 ! ! |
64 |
64 |
65 !PPCCharacterNode methodsFor:'visiting'! |
65 !PPCCharacterNode methodsFor:'visiting'! |
66 |
66 |
67 accept: visitor |
67 accept: visitor |