[don't regrab properties out of info field unnecesarily
John Meacham <john@repetae.net>**20061121074319] hunk ./E/Inline.hs 49
-    | forceNoinline x = False
+    | forceNoinline' props x = False
hunk ./E/Inline.hs 51
-    | Properties p <- Info.fetch (tvrInfo x) = member prop_INLINE p  || member prop_WRAPPER p || member prop_SUPERINLINE p
+    | otherwise  = member prop_INLINE props  || member prop_WRAPPER props || member prop_SUPERINLINE props
+    where props = Info.fetch (tvrInfo x)
hunk ./E/Inline.hs 55
-    | forceNoinline x = False
+    | forceNoinline' props x = False
hunk ./E/Inline.hs 57
-    | Properties p <- Info.fetch (tvrInfo x) =  member prop_SUPERINLINE p
+    | otherwise = member prop_SUPERINLINE props
+    where props = Info.fetch (tvrInfo x)
hunk ./E/Inline.hs 60
-forceNoinline x
+forceNoinline x = forceNoinline' (Info.fetch (tvrInfo x)) x
+
+forceNoinline' :: Properties -> TVr -> Bool
+forceNoinline' props x
+    | member prop_NOINLINE props || member prop_PLACEHOLDER props = True
hunk ./E/Inline.hs 66
-    | Properties p <- Info.fetch (tvrInfo x) = member prop_NOINLINE p || member prop_PLACEHOLDER p
+    | otherwise = False
hunk ./Ho/Build.hs 277
-            put bh magic2
+            put_ bh magic2