parent $heap_class
object $small_first_heap_class

var $root child_index 0
var $root owners [$small_first_heap_class]
var $root owned [$small_first_heap_class]
var $root fertile 0
var $root inited 1
var $root manager $small_first_heap_class
var $root writable [$small_first_heap_class]
var $root readable ['parameters, 'methods, 'code]
var $root dbref 'small_first_heap_class

method should_swap
    arg self, element1, element2;
    
    // see $heap_class.should_swap for comments
    if ((element1 < 1) || ((element2 < 1) || ((element1 > (.length(self))) || (element2 > (.length(self))))))
        throw(~range, "Element index out of range.");
    else
        return (((self['data])[element1])[self['key]]) > (((self['data])[element2])[self['key]]);
.