[when lambda lifting grin, don't abstract over cafs
John Meacham <john@repetae.net>**20070602085708] hunk ./Grin/Devolve.hs 36
-                  where xs = [ Var v t |  (v,t) <- Set.toList $ freeVars (as :-> r)]
+                  where xs = [ Var v t |  (v,t) <- Set.toList $ freeVars (as :-> r), v > v0]