checkMapRecover: find undefined idents in all jments in Rename

This commit is contained in:
aarne
2012-06-25 11:14:52 +00:00
parent 3dc2e55949
commit d15e0f775d
2 changed files with 9 additions and 2 deletions

View File

@@ -52,7 +52,7 @@ renameSourceTerm g m t = do
renameModule :: [SourceModule] -> SourceModule -> Check SourceModule
renameModule ms mo@(m,mi) = do
status <- buildStatus (mGrammar ms) mo
js <- checkMap (renameInfo status mo) (jments mi)
js <- checkMapRecover (renameInfo status mo) (jments mi)
return (m, mi{jments = js})
type Status = (StatusTree, [(OpenSpec, StatusTree)])