cvs commit: fptools/libraries/base/GHC Float.lhs Real.lhs fptools/libraries/base/Text/Read Lex.hs

[Simon Peyton Jones]

simonpj     2002/06/18 02:31:06 PDT

  Modified files:
    libraries/base/GHC   Float.lhs Real.lhs 
    libraries/base/Text/Read Lex.hs 
  Log:
  	--------------------------
  	Deal with NaN and Infinity
  	--------------------------
  
  This commit arranges that
  
  * GHC.Real exports	infinity   :: Rational = 1 :% 0
  			notANumber :: Rational = 0 :% 0
  
  * GHC.Float.fromRat converts these Rational non-numbers into
    their Float/Double equivalents
  
  As a result, arith015/arith016 start to work again.  We can
  read NaN and Infinity into Float/Double.
  
  Revision  Changes    Path
  1.7       +12 -7     fptools/libraries/base/GHC/Float.lhs
  1.5       +7 -0      fptools/libraries/base/GHC/Real.lhs
  1.6       +1 -16     fptools/libraries/base/Text/Read/Lex.hs