@@ -19,22 +19,15 @@ abstract class BooleanObjectInternal extends ObjectInternal {
1919 none ( )
2020 }
2121
22- override predicate isClass ( ) { none ( ) }
22+ override boolean isClass ( ) { result = false }
23+
24+ override boolean isComparable ( ) { result = true }
2325
24- override predicate notClass ( ) { any ( ) }
2526
2627 override ObjectInternal getClass ( ) {
2728 result = TBuiltinClassObject ( Builtin:: special ( "bool" ) )
2829 }
2930
30- override predicate isComparable ( ) {
31- any ( )
32- }
33-
34- override predicate notComparable ( ) {
35- none ( )
36- }
37-
3831 override Builtin getBuiltin ( ) {
3932 none ( )
4033 }
@@ -118,9 +111,10 @@ class NoneObjectInternal extends ObjectInternal, TNone {
118111 none ( )
119112 }
120113
121- override predicate isClass ( ) { none ( ) }
114+ override boolean isClass ( ) { result = false }
115+
116+ override boolean isComparable ( ) { result = true }
122117
123- override predicate notClass ( ) { any ( ) }
124118
125119 override ObjectInternal getClass ( ) {
126120 result = TBuiltinClassObject ( Builtin:: special ( "NoneType" ) )
@@ -130,14 +124,6 @@ class NoneObjectInternal extends ObjectInternal, TNone {
130124 node .( NameNode ) .getId ( ) = "None" and context .appliesTo ( node )
131125 }
132126
133- override predicate isComparable ( ) {
134- any ( )
135- }
136-
137- override predicate notComparable ( ) {
138- none ( )
139- }
140-
141127 override Builtin getBuiltin ( ) {
142128 none ( )
143129 }
@@ -183,21 +169,14 @@ class IntObjectInternal extends ObjectInternal, TInt {
183169 none ( )
184170 }
185171
186- override predicate isClass ( ) { none ( ) }
172+ override boolean isClass ( ) { result = false }
187173
188- override predicate notClass ( ) { any ( ) }
174+ override boolean isComparable ( ) { result = true }
189175
190176 override ObjectInternal getClass ( ) {
191177 result = TBuiltinClassObject ( Builtin:: special ( "int" ) )
192178 }
193179
194- override predicate isComparable ( ) {
195- any ( )
196- }
197-
198- override predicate notComparable ( ) {
199- none ( )
200- }
201180
202181 override Builtin getBuiltin ( ) {
203182 none ( )
@@ -250,22 +229,14 @@ class StringObjectInternal extends ObjectInternal, TString {
250229 none ( )
251230 }
252231
253- override predicate isClass ( ) { none ( ) }
232+ override boolean isClass ( ) { result = false }
254233
255- override predicate notClass ( ) { any ( ) }
234+ override boolean isComparable ( ) { result = true }
256235
257236 override ObjectInternal getClass ( ) {
258237 result = TBuiltinClassObject ( Builtin:: special ( "str" ) )
259238 }
260239
261- override predicate isComparable ( ) {
262- any ( )
263- }
264-
265- override predicate notComparable ( ) {
266- none ( )
267- }
268-
269240 override Builtin getBuiltin ( ) {
270241 none ( )
271242 }
0 commit comments