Commit 54e6a4e1 authored by simonmar's avatar simonmar

[project @ 2000-03-08 15:58:30 by simonmar]

okToUnfoldInHiFile: look at args of a Con for litlits.
parent b9cf3094
......@@ -498,7 +498,7 @@ okToUnfoldInHiFile e = opt_UnfoldCasms || go e
go (Var _) = True
go (Con (Literal lit) _) = not (isLitLitLit lit)
go (Con (PrimOp op) args) = okToUnfoldPrimOp op && all go args
go (Con con args) = True -- con args are always atomic
go (Con con args) = all go args -- might be litlits in here
go (App fun arg) = go fun && go arg
go (Lam _ body) = go body
go (Let binds body) = and (map go (body :rhssOfBind binds))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment