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]]); .