1 "{ Package: 'stx:libbasic2' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 SkipList subclass:#IdentitySkipList

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Collections-Ordered-Trees'

    10 !

    11 

    12 IdentitySkipList comment:'Like a SkipList, except that elements are compared with #== instead of #= .

    13 

    14 See the comment of IdentitySet for more information.

    15 '

    16 !

    17 

    18 !IdentitySkipList class methodsFor:'documentation'!

    19 

    20 documentation

    21 "

    22     Like a SkipList, except that elements are compared with #== instead of #= .

    23 

    24     See the comment of IdentitySet for more information.

    25 "

    26 ! !

    27 

    28 !IdentitySkipList methodsFor:'element comparison'!

    29 

    30 is: element1 equalTo: element2

    31 	^ element1 == element2

    32 ! !

    33 

    34 !IdentitySkipList class methodsFor:'documentation'!

    35 

    36 version

    37     ^ '$Header$'

    38 !

    39 

    40 version_CVS

    41     ^ '$Header$'

    42 ! !

    43