--- a/SyntaxElement.st	Fri Jul 27 21:00:04 2012 +0200
+++ b/SyntaxElement.st	Fri Jul 27 21:53:54 2012 +0200
@@ -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,7 +269,7 @@
 !SyntaxElement class methodsFor:'documentation'!
 
 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