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

Fixed transformEachRange to change the abbreviation mode of the loop counter

Browse Source
This commit is contained in:
Neil Brown 2008-03-21 15:09:00 +00:00
parent dfea2c11a5
commit 0dc458ff03
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
frontends/RainPasses.hs
View File

@ -195,6 +195,8 @@ transformEachRange = doGeneric `ext1M` doStructured
doStructured (A.Rep repMeta (A.ForEach eachMeta loopVar (A.ExprConstr doStructured (A.Rep repMeta (A.ForEach eachMeta loopVar (A.ExprConstr
_ (A.RangeConstr _ _ begin end))) body) _ (A.RangeConstr _ _ begin end))) body)
= do body' <- doStructured body = do body' <- doStructured body
-- Need to change the stored abbreviation mode to original:
modifyName loopVar $ \nd -> nd { A.ndAbbrevMode = A.Original }
return $ A.Rep repMeta (A.For eachMeta loopVar begin return $ A.Rep repMeta (A.For eachMeta loopVar begin
(addOne $ subExprs end begin)) body' (addOne $ subExprs end begin)) body'
doStructured s = doGeneric s doStructured s = doGeneric s