[don't reget properties structure out of tvrInfo unnecesarily
John Meacham <john@repetae.net>**20061125024829] hunk ./E/SSimplify.hs 331
-    case (forceNoinline v,finalPhase,forceInline v) of
-        (True,_,_) -> ForceNoinline
-        (False,True,_) -> NotForced
-        (False,False,True) -> ForceInline
-        (False,False,False) -> NotForced
+    let props = getProperties v in
+        case (forceNoinline props,finalPhase,forceInline props) of
+            (True,_,_) -> ForceNoinline
+            (False,True,_) -> NotForced
+            (False,False,True) -> ForceInline
+            (False,False,False) -> NotForced
hunk ./E/SSimplify.hs 738
-                Just IsBoundTo { bindingE = e } | forceInline v, someBenefit v e txs -> do
-                    mtick  (toAtom $ "E.Simplify.inline.forced/{" ++ tvrShowName v  ++ "}")
-                    didInline inb e xs'