Browse Source

Fixed CompiledMethod >> isOverride

Nicolas Petton 12 years ago
parent
commit
8950b57d77
3 changed files with 6 additions and 6 deletions
  1. 2 2
      js/Helios-Browser.deploy.js
  2. 3 3
      js/Helios-Browser.js
  3. 1 1
      st/Helios-Browser.st

+ 2 - 2
js/Helios-Browser.deploy.js

@@ -2378,9 +2378,9 @@ return false;
 } else {
 $1;
 };
-$2=_st(_st(_st(_st(self)._methodClass())._superclass())._lookupSelector_(_st(self)._selector()))._isNil();
+$2=_st(_st(_st(_st(self)._methodClass())._superclass())._lookupSelector_(_st(self)._selector()))._notNil();
 return $2;
 }, function($ctx1) {$ctx1.fill(self,"isOverride",{superclass:superclass}, smalltalk.CompiledMethod)})},
-messageSends: ["superclass", "methodClass", "ifNil:", "isNil", "lookupSelector:", "selector"]}),
+messageSends: ["superclass", "methodClass", "ifNil:", "notNil", "lookupSelector:", "selector"]}),
 smalltalk.CompiledMethod);
 

+ 3 - 3
js/Helios-Browser.js

@@ -3094,12 +3094,12 @@ return false;
 } else {
 $1;
 };
-$2=_st(_st(_st(_st(self)._methodClass())._superclass())._lookupSelector_(_st(self)._selector()))._isNil();
+$2=_st(_st(_st(_st(self)._methodClass())._superclass())._lookupSelector_(_st(self)._selector()))._notNil();
 return $2;
 }, function($ctx1) {$ctx1.fill(self,"isOverride",{superclass:superclass}, smalltalk.CompiledMethod)})},
 args: [],
-source: "isOverride\x0a\x09| superclass |\x0a    \x0a    superclass := self methodClass superclass.\x0a\x09superclass ifNil: [ ^ false ].\x0a\x09\x0a    ^ (self methodClass superclass lookupSelector: self selector) isNil",
-messageSends: ["superclass", "methodClass", "ifNil:", "isNil", "lookupSelector:", "selector"],
+source: "isOverride\x0a\x09| superclass |\x0a    \x0a    superclass := self methodClass superclass.\x0a\x09superclass ifNil: [ ^ false ].\x0a\x09\x0a    ^ (self methodClass superclass lookupSelector: self selector) notNil",
+messageSends: ["superclass", "methodClass", "ifNil:", "notNil", "lookupSelector:", "selector"],
 referencedClasses: []
 }),
 smalltalk.CompiledMethod);

+ 1 - 1
st/Helios-Browser.st

@@ -1038,6 +1038,6 @@ isOverride
     superclass := self methodClass superclass.
 	superclass ifNil: [ ^ false ].
 	
-    ^ (self methodClass superclass lookupSelector: self selector) isNil
+    ^ (self methodClass superclass lookupSelector: self selector) notNil
 ! !