GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-23 19:42:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

cleanup in PGF.Typecheck -> newGuardedMeta doesn't need the current scope

Browse Source
This commit is contained in:
krasimir
2010-03-13 20:12:00 +00:00
parent efd1b5f252
commit db2d9a3238
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/runtime/haskell/PGF/TypeCheck.hs
View File

@@ -99,8 +99,8 @@ lookupFunType fun = TcM (\abstr metaid ms -> case Map.lookup fun (funs abstr) of
newMeta :: Scope -> TcM MetaId newMeta :: Scope -> TcM MetaId
newMeta scope = TcM (\abstr metaid ms -> Ok (metaid+1) (IntMap.insert metaid (MUnbound scope []) ms) metaid) newMeta scope = TcM (\abstr metaid ms -> Ok (metaid+1) (IntMap.insert metaid (MUnbound scope []) ms) metaid)
newGuardedMeta :: Scope -> Expr -> TcM MetaId newGuardedMeta :: Expr -> TcM MetaId
newGuardedMeta scope e = TcM (\abstr metaid ms -> Ok (metaid+1) (IntMap.insert metaid (MGuarded e [] 0) ms) metaid) newGuardedMeta e = TcM (\abstr metaid ms -> Ok (metaid+1) (IntMap.insert metaid (MGuarded e [] 0) ms) metaid)
getMeta :: MetaId -> TcM MetaValue getMeta :: MetaId -> TcM MetaValue
getMeta i = TcM (\abstr metaid ms -> Ok metaid ms $! case IntMap.lookup i ms of getMeta i = TcM (\abstr metaid ms -> Ok metaid ms $! case IntMap.lookup i ms of
@@ -283,7 +283,7 @@ tcExpr scope (EMeta _) tty = do
return (EMeta i) return (EMeta i)
tcExpr scope e0 tty = do tcExpr scope e0 tty = do
(e0,tty0) <- infExpr scope e0 (e0,tty0) <- infExpr scope e0
i <- newGuardedMeta scope e0 i <- newGuardedMeta e0
eqType scope (scopeSize scope) i tty tty0 eqType scope (scopeSize scope) i tty tty0
return (EMeta i) return (EMeta i)