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

#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