Commit 40f3a855 authored by simonmar's avatar simonmar
Browse files

[project @ 1999-06-18 13:06:33 by simonmar]

Literate tidyups from Wolfram.
parent df6c390f
......@@ -407,11 +407,11 @@ ifaceBinds hdl needed_ids final_ids binds
= case ifaceId get_idinfo needed False id rhs of
Nothing -> go needed binds pretties emitted
Just (pretty, extras) -> let
needed' = (needed `unionVarSet` extras) `delVarSet` id
-- 'extras' can include the Id itself via a rule
emitted' = emitted `extendVarSet` id
in
go needed' binds (pretty `consBag` pretties) emitted'
needed' = (needed `unionVarSet` extras) `delVarSet` id
-- 'extras' can include the Id itself via a rule
emitted' = emitted `extendVarSet` id
in
go needed' binds (pretty `consBag` pretties) emitted'
-- Recursive groups are a bit more of a pain. We may only need one to
-- start with, but it may call out the next one, and so on. So we
......@@ -599,7 +599,7 @@ ppr_unqual_name name = pprOccName (getOccName name)
%************************************************************************
%* *
\subsection{Comparisons
\subsection{Comparisons}
%* *
%************************************************************************
......
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