--- a/SyntaxElement.st Fri Sep 07 12:37:19 2012 +0100
+++ b/SyntaxElement.st Fri Sep 07 18:28:09 2012 +0100
@@ -188,17 +188,16 @@
!SyntaxElement methodsFor:'comparing'!
< anObject
-
anObject isNumber ifTrue:[^stop < anObject].
anObject class == self class ifFalse:[^false].
^stop < anObject start
"Created: / 14-02-2010 / 13:39:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 27-07-2012 / 21:53:22 / cg"
!
= anObject
-
anObject class == self class ifFalse:[^false].
^start == (anObject start) and:
@@ -206,22 +205,23 @@
[type == (anObject type)]].
"Created: / 14-02-2010 / 13:33:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 27-07-2012 / 21:53:24 / cg"
!
hash
-
^start hash bitXor:[stop hash bitXor:[type hash]].
"Created: / 14-02-2010 / 13:30:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 27-07-2012 / 21:53:28 / cg"
! !
!SyntaxElement methodsFor:'double dispatching'!
lessFromInteger:anInteger
-
^stop < anInteger
"Created: / 14-02-2010 / 13:49:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 27-07-2012 / 21:53:33 / cg"
! !
!SyntaxElement methodsFor:'printing & storing'!
@@ -269,13 +269,13 @@
!SyntaxElement class methodsFor:'documentation'!
version
- ^ '$Id: SyntaxElement.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Id: SyntaxElement.st 8048 2012-09-07 17:28:09Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.3 2011/08/21 10:25:36 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libtool/SyntaxElement.st,v 1.4 2012/07/27 19:53:54 cg Exp §'
!
version_SVN
- ^ '$Id: SyntaxElement.st 7854 2012-01-30 17:49:41Z vranyj1 $'
+ ^ '$Id: SyntaxElement.st 8048 2012-09-07 17:28:09Z vranyj1 $'
! !