SyntaxElement.st
branchjv
changeset 12287 400a99059170
parent 12128 a7ff7d66ee85
child 12401 4714b9640528
--- 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 $'
 ! !