removeTrailingWhitespace removes leading whitespace

[sjakobi]

> s = SLine 2 (SText 2 "  " (SChar 'x' SEmpty))
> removeTrailingWhitespace s
SLine 2 (SChar 'x' SEmpty)

[sjakobi]

Same issue when the leading whitespace is in SChars:

> removeTrailingWhitespace (SLine 0 (SChar ' ' (SChar 'x' SEmpty)))
SLine 0 (SChar 'x' SEmpty)
> removeTrailingWhitespace (SLine 0 (SChar ' ' (SChar ' ' (SChar 'x' SEmpty))))
SLine 0 (SChar 'x' SEmpty)

[quchen]

Interesting, I’m surprised this wasn’t caught by the testsuite!