Optimized inheritance-tree walking for Opal Class#===

gistfile1.txt

  Opal.is_a = function(object, self) {
    if(!object.$$class) { return false }

    var klass = object.$$class;
    var modules = klass.$$inc, index;
    while(klass !== Opal.BasicObject) {
      if(klass === self) { return true }

      for(index = 0; index < modules.length; index++) {
        if(modules[index] === self) { return true }
      }

      klass = klass.$$super;
      modules = klass.$$inc;
    }

    return false;
  }