[handle drop__ primitive specially in demand analyzer
John Meacham <john@repetae.net>**20060718055220] hunk ./E/Demand.hs 25
+import C.Prims
hunk ./E/Demand.hs 266
+analyze (EPrim (APrim (PrimPrim "drop__") pc) [t1,t2] pt) s = do
+    (t1',dt1) <- analyze t1 lazy
+    (t2',dt2) <- analyze t2 s
+    return (EPrim (APrim (PrimPrim "drop__") pc) [t1',t2'] pt,dt1 `glb` dt2)