<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
> <span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">e.g. 1.8 is clearly less than 1.7.4</span><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><br></span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Eh, no it is not? If less means older here ...</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><br></span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Best,</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Marcel</span></div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 05.11.2022 21:36:40 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>Eliot Miranda uploaded a new version of VersionNumber to project The Trunk:<br>http://source.squeak.org/trunk/VersionNumber-eem.5.mcz<br><br>==================== Summary ====================<br><br>Name: VersionNumber-eem.5<br>Author: eem<br>Time: 5 November 2022, 1:36:25.499057 pm<br>UUID: 8883b385-6d1b-4659-b488-c677c700707a<br>Ancestors: VersionNumber-cmm.4<br><br>Fix VersionNumber>>< so that version numbers of different lengths can be compared. e.g. 1.8 is clearly less than 1.7.4. At the same time fix the comparison so that it terminates as soon as a difference is found.<br><br>=============== Diff against VersionNumber-cmm.4 ===============<br><br>Item was changed:<br> ----- Method: VersionNumber>>< (in category 'comparing') -----<br> < another <br>+ "Answer whether the receiver is less than the argument, another VersionNumber."<br>- "Answer whether the receiver is less than the argument."<br> <br>+ | tmp thisSize thatSize this that |<br>- | tmp |<br>- (self inSameBranchAs: another) ifFalse: <br>- [^self error: 'Receiver and argument in different branches'].<br>- <br> tmp := another numbers.<br>+ thisSize := numbers size.<br>+ thatSize := tmp size.<br>+ 1 to: (thisSize min: thatSize) do:<br>+ [:i|<br>+ (this := numbers at: i) = (that := tmp at: i) ifFalse:<br>+ [^this < that]].<br>+ ^thisSize < thatSize!<br>- (tmp size = numbers size) ifTrue:<br>- [1 to: numbers size do: <br>- [ :in | (numbers at: in) < (tmp at: in) ifTrue: [^true]].<br>- ^false].<br>- <br>- ^numbers size < tmp size<br>- !<br><br><br></div></blockquote>
</div></body>