as.numeric(levels(factor(x))) may be a decreasing sequence

"PS" == Petr Savicky <savicky at cs.cas.cz>
    on Thu, 28 May 2009 09:36:48 +0200 writes:

>> I have very slightly  modified the changes (to get rid of -Wall
    >> warnings) and also exported the function as Rf_dropTrailing0(),
    >> and tested the result with 'make check-all' .

    PS> Thank you very much for considering the patch. -Wall indeed requires to add 
    PS> parentheses
    PS> warning: suggest parentheses around comparison in operand of &
    PS> warning: suggest parentheses around assignment used as truth value

    PS> If there are also other changes, i would like to ask you to make your modification
    PS> available, mainly due to a possible further discussion.

    PS> Let me also suggest a modification of my original proposal. It contains a cycle
    PS> while (*(replace++) = *(p++)) {
    PS> ;
    PS> }
    PS> If the number has no trailing zeros, but contains an exponent, this cycle
    PS> shifts the exponent by 0 positions, which means that it copies each of its
    PS> characters to itself. This may be eliminated as follows
    PS> if (replace != p) {
    PS>    while (*(replace++) = *(p++)) {
    PS>       ;
    PS>    }
    PS> }

yes, that's a simple improvement, thank you.
Martin