[include free variables of allocating command when figuring out what to save
John Meacham <john@repetae.net>**20100320005417
 Ignore-this: ae514b3855b2790c50e4eeaee2c67eb
] hunk ./src/Grin/Devolve.hs 105
-        let nroots = Set.fromList [ Var v t | (v,t) <- Set.toList (freeVars lam), isNode t, v > v0] Set.\\ roots
+        let nroots = Set.fromList [ Var v t | (v,t) <- Set.toList (freeVars (if isUsing x then ([] :-> x :>>= lam) else lam)), isNode t, v > v0] Set.\\ roots
hunk ./src/Grin/Devolve.hs 117
+    isUsing (BaseOp StoreNode {} _) = True
+    isUsing Alloc {} = True
+    isUsing _ = False
+