projects
/
matthijs
/
master-project
/
cλash.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
53735ca
)
Remove two old debug traces.
author
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Sun, 21 Jun 2009 11:52:55 +0000
(13:52 +0200)
committer
Matthijs Kooijman
<m.kooijman@student.utwente.nl>
Sun, 21 Jun 2009 14:52:47 +0000
(16:52 +0200)
Normalize.hs
patch
|
blob
|
history
diff --git
a/Normalize.hs
b/Normalize.hs
index 99f6f0c3a59bdc57b03f4beee4a42017d3ca343a..d2f50a708315702bf0cc5478bb8026875c57610d 100644
(file)
--- a/
Normalize.hs
+++ b/
Normalize.hs
@@
-361,10
+361,10
@@
normalizeBind bndr = do
-- Find all vars used with a function type. All of these should be global
-- binders (i.e., functions used), since any local binders with a function
-- type should have been inlined already.
-- Find all vars used with a function type. All of these should be global
-- binders (i.e., functions used), since any local binders with a function
-- type should have been inlined already.
- let used_funcs_set = CoreFVs.exprSomeFreeVars (\v ->
trace (showSDoc $ ppr $ Id.idType v) ((Type.isFunTy . snd . Type.splitForAllTys . Id.idType)v)
) expr''
+ let used_funcs_set = CoreFVs.exprSomeFreeVars (\v ->
(Type.isFunTy . snd . Type.splitForAllTys . Id.idType) v
) expr''
let used_funcs = VarSet.varSetElems used_funcs_set
-- Process each of the used functions recursively
let used_funcs = VarSet.varSetElems used_funcs_set
-- Process each of the used functions recursively
- mapM normalizeBind
(trace (show used_funcs) used_funcs)
+ mapM normalizeBind
used_funcs
return ()
-- We don't have a value for this binder, let's assume this is a builtin
-- function. This might need some extra checking and a nice error
return ()
-- We don't have a value for this binder, let's assume this is a builtin
-- function. This might need some extra checking and a nice error