suzanne.soy/tock-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove debugging code

Browse Source
This commit is contained in:
Adam Sampson 2007-04-26 20:20:00 +00:00
parent 63a39f5a27
commit 6397d9526e
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fco2/Unnest.hs
View File

@ -124,7 +124,6 @@ removeFreeNames = doGeneric `extM` doSpecification `extM` doProcess
A.Abbrev -> A.ActualVariable am t (A.Variable m n) A.Abbrev -> A.ActualVariable am t (A.Variable m n)
_ -> A.ActualExpression t (A.ExprVariable m (A.Variable m n)) _ -> A.ActualExpression t (A.ExprVariable m (A.Variable m n))
| (am, n, t) <- zip3 ams freeNames types] | (am, n, t) <- zip3 ams freeNames types]
progress $ show n ++ " has new args " ++ show newAs
case newAs of case newAs of
[] -> return () [] -> return ()
_ -> modify $ (\ps -> ps { psAdditionalArgs = (A.nameName n, newAs) : psAdditionalArgs ps }) _ -> modify $ (\ps -> ps { psAdditionalArgs = (A.nameName n, newAs) : psAdditionalArgs ps })
@ -135,7 +134,6 @@ removeFreeNames = doGeneric `extM` doSpecification `extM` doProcess
doProcess :: A.Process -> PassM A.Process doProcess :: A.Process -> PassM A.Process
doProcess p@(A.ProcCall m n as) doProcess p@(A.ProcCall m n as)
= do st <- get = do st <- get
progress $ "adding args to call of " ++ show n
case lookup (A.nameName n) (psAdditionalArgs st) of case lookup (A.nameName n) (psAdditionalArgs st) of
Just add -> doGeneric $ A.ProcCall m n (as ++ add) Just add -> doGeneric $ A.ProcCall m n (as ++ add)
Nothing -> doGeneric p Nothing -> doGeneric p