12 Oct
2006
12 Oct
'06
3:45 a.m.
| I might point out that the current code would throw out those discounts (the | nukeSrutDiscounts in that case). Ah yes. I've forgotten why nukeScrutDiscounts is there. If you have f x = let y = case x of ... in ... then the nukeScrutDiscount will avoid giving a discount to x. I'm not sure why... if supplying a value for x made the function very small (by making a big case shrink) then it deserves its discount. Simon