Commit 30e3021f authored by simonpj's avatar simonpj
Browse files

[project @ 2003-04-10 11:33:56 by simonpj]

parent 3b2322d6
......@@ -224,6 +224,9 @@ getContArgs chkr fun orig_cont
-- * (error "Hello") arg
-- * f (error "Hello") where f is strict
-- etc
-- Then, especially in the first of these cases, we'd like to discard
-- the continuation, leaving just the bottoming expression. But the
-- type might not be right, so we may have to add a coerce.
go acc ss inl cont
| null ss && discardableCont cont = (reverse acc, discardCont cont, inl)
| otherwise = (reverse acc, cont, inl)
Supports Markdown
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