Commit 172dd51c authored by simonpj's avatar simonpj
Browse files

[project @ 2003-12-16 16:19:04 by simonpj]

Rule selection test was exactly backwards
parent 32c4b4b2
......@@ -586,7 +586,7 @@ selectRules (Pool rules n_in n_out) type_env
| null gates' = (pool, rule:if_rules)
| otherwise = ((gates',rule) : pool, if_rules)
where
gates' = filter (`elemNameEnv` type_env) gates
gates' = filter (not . (`elemNameEnv` type_env)) gates
tcIfaceRule :: IfaceRule -> IfL IdCoreRule
......
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