Commit 5142f916 authored by simonm's avatar simonm
Browse files

[project @ 1997-12-22 11:43:06 by simonm]

fix for the getWorkerIdAndCons bug.
parent a156d07a
......@@ -245,6 +245,9 @@ getWorkerIdAndCons wrap_id wrapper_fn
go (Lam _ body) = go body
go (Case _ (AlgAlts [(con,_,rhs)] _)) = let (wrap_id, cons) = go rhs
in (wrap_id, cons `addOneToIdSet` con)
go (Let (NonRec _ (Coerce (CoerceOut con) _ _)) body)
= let (wrap_id, cons) = go body
in (wrap_id, cons `addOneToIdSet` con)
go other = (get_work_id other, emptyIdSet)
get_work_id (App fn _) = get_work_id fn
......
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