[add bindComb and combBind, make combRules_u update HASRULE property
John Meacham <john@repetae.net>**20080229122305] hunk ./E/Type.hs 79
-combRules_u f r@Comb{combRules  = x} = r{combRules = f x}
+combRules_u f r@Comb{combRules  = x} = cp r{combRules = fx} where
+    cp = if null fx then unsetProperty PROP_HASRULE else setProperty PROP_HASRULE
+    fx = f x
+
hunk ./E/Type.hs 86
+
+
hunk ./E/Type.hs 92
+combBind b = (combHead b,combBody b)
+bindComb (t,e) = combHead_s t . combBody_s e $ emptyComb
hunk ./Main.hs 163
+    rules rs i = id
hunk ./Main.hs 181
-        combs =  fakeEntry:[ (emptyComb { combHead = t, combBody = e, combRules = mfindWithDefault [] (tvrIdent t) rm }) | (t,e) <- hoEs (hoBuild aho) ]
+        combs =  fakeEntry:[combRules_s (mfindWithDefault [] (tvrIdent t) rm) (bindComb (t,e))  | (t,e) <- hoEs (hoBuild aho) ]