rounding bug

[Sven Panne]

The HEAD seems to have a rounding bug:

---------------------------------------------------------------------------
panne at jeanluc:~/hugs98-Dez2003/src> hugs
__   __ __  __  ____   ___      _________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2003
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Report bugs to: hugs-bugs at haskell.org
||   || Version: Dezember 2003  _________________________________________

Haskell 98 mode: Restart with command line option -98 to enable extensions

Type :? for help
Prelude> round (1799.0 :: Float)
1800
---------------------------------------------------------------------------

The released version gets this right. Investigating...

Cheers,
    S.