[allow deadcode and node analysis to see constant partial applications that are arguments to a store
John Meacham <john@repetae.net>**20090905224714
 Ignore-this: f046a8c860f832b6185d8868fa474c0
] hunk ./src/Grin/DeadCode.hs 124
-           -- g (Update vv@(Index (Var v _) r) n) | v < v0 = do
-           --     v' <- supplyValue usedCafs v
-           --     addRule (doNode r)
-           --     addRule $ conditionalRule id v' $ doNode n
hunk ./src/Grin/DeadCode.hs 129
-   --         g (Store n) = addRule $ doNode n
hunk ./src/Grin/DeadCode.hs 148
-                consts = (mconcatMap doConst as)
+                consts = (mconcatMap doNode as)
hunk ./src/Grin/DeadCode.hs 156
---            doConst (Tup ns) = mconcatMap doConst ns
hunk ./src/Grin/NodeAnalyze.hs 251
-        Nothing -> return $ Right (N WHNF (Only $ Set.singleton t))
+        Nothing -> do
+            mapM_ convertVal vs
+            return $ Right (N WHNF (Only $ Set.singleton t))