[make inline checking work for anything in the HasProperties class
John Meacham <john@repetae.net>**20061125024642] hunk ./E/Inline.hs 48
+forceInline :: HasProperties a => a -> Bool
hunk ./E/Inline.hs 50
-    | forceNoinline' props x = False
+    | forceNoinline props = False
hunk ./E/Inline.hs 53
-    where props = Info.fetch (tvrInfo x)
+    where props = getProperties x
hunk ./E/Inline.hs 55
+forceSuperInline :: HasProperties a => a -> Bool
hunk ./E/Inline.hs 57
-    | forceNoinline' props x = False
+    | forceNoinline props = False
hunk ./E/Inline.hs 60
-    where props = Info.fetch (tvrInfo x)
+    where props = getProperties x
hunk ./E/Inline.hs 62
-forceNoinline x = forceNoinline' (Info.fetch (tvrInfo x)) x
-
-forceNoinline' :: Properties -> TVr -> Bool
-forceNoinline' props x
+forceNoinline :: HasProperties a => a -> Bool
+forceNoinline x
hunk ./E/Inline.hs 66
+    where props = getProperties x
hunk ./E/Inline.hs 139
-programDecomposedDs prog = decomposeDs $ programDs prog 
+programDecomposedDs prog = decomposeDs $ programDs prog