[Hugs] #92: Strict record fields aren't demanded

[Hugs]

#92: Strict record fields aren't demanded
--------------------+-------------------------------------------------------
 Reporter:  guest   |       Owner:  nobody
     Type:  defect  |      Status:  new   
 Priority:  major   |   Milestone:        
Component:  hugs    |     Version:  200609
 Keywords:          |  
--------------------+-------------------------------------------------------
 Given

 {{{
 data S = S { a :: Int, b :: ! Int }
 }}}

 In GHCi:

 {{{
 *Main> a (S { a = 0, b = 1 })
 0
 *Main> a (S { a = 0, b = undefined })
 *** Exception: Prelude.undefined
 }}}

 In Hugs:

 {{{
 Main> a (S { a = 0, b = 1 })
 0
 Main> a (S { a = 0, b = undefined })
 0
 }}}

 Bug reported by Geraint Jones

-- 
Ticket URL: <http://hackage.haskell.org/trac/hugs/ticket/92>
Hugs <http://www.haskell.org/hugs/>
Hugs 98, an interpreter for Haskell