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

Rain: corrected a comment in RainPasses

Browse Source
This commit is contained in:
Neil Brown 2007-09-15 11:25:35 +00:00
parent 4221b0d698
commit 9ffb5b5931
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frontends/RainPasses.hs
View File

@ -148,7 +148,7 @@ findMain x = do newMainName <- makeNonce "main_"
Nothing -> m Nothing -> m
Just nd -> ((Map.insert n (nd {A.ndName = n})) . (Map.delete "main")) m Just nd -> ((Map.insert n (nd {A.ndName = n})) . (Map.delete "main")) m
-- | A pass that finds all the 'A.ProcCall' in the AST, and checks that the actual parameters are valid inputs, given the 'A.Formal' parameters in the process's type -- | A pass that finds all the 'A.ProcCall' and 'A.FunctionCall' in the AST, and checks that the actual parameters are valid inputs, given the 'A.Formal' parameters in the process's type
matchParamPass :: Data t => t -> PassM t matchParamPass :: Data t => t -> PassM t
matchParamPass = everywhereM ((mkM matchParamPassProc) `extM` matchParamPassFunc) matchParamPass = everywhereM ((mkM matchParamPassProc) `extM` matchParamPassFunc)
where where