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

Unsubscript the context (when walking a subscripted expression.

Browse Source
This commit is contained in:
Adam Sampson 2008-04-06 18:43:34 +00:00
parent 2d15eb800c
commit 71d8c7024b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
frontends/OccamTypes.hs
View File

@ -645,7 +645,11 @@ inferTypes = applyExplicitM9 doExpression doDimension doSubscript
-- FIXME: IntrinsicFunctionCall -- FIXME: IntrinsicFunctionCall
A.SubscriptedExpr m s e -> A.SubscriptedExpr m s e ->
do s' <- inferTypes s do s' <- inferTypes s
e' <- inSubscriptedContext m $ inferTypes e ctx <- getTypeContext
ctx' <- case ctx of
Just t -> unsubscriptType s t >>* Just
Nothing -> return Nothing
e' <- inTypeContext ctx' $ inferTypes e
return $ A.SubscriptedExpr m s' e' return $ A.SubscriptedExpr m s' e'
-- Other expressions don't modify the type context. -- Other expressions don't modify the type context.