[make simplification and let floating treat ONESHOT lambdas properly
John Meacham <john@repetae.net>**20060816131930] hunk ./E/LetFloat.hs 146
+canFloatPast t | getProperty prop_ONESHOT t = True
hunk ./E/SSimplify.hs 143
-        tell $ (inLam $ foldr mdelete avs (map tvrIdent as),fromList $ map tvrIdent as)
+        case all (getProperty prop_ONESHOT) as of
+            True ->  tell $ (foldr mdelete avs (map tvrIdent as),fromList $ map tvrIdent as)
+            False -> tell $ (inLam $ foldr mdelete avs (map tvrIdent as),fromList $ map tvrIdent as)