diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-03-28 15:20:46 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-03-28 15:20:46 -0400 |
commit | a6d534b172ccb8eadc24e0e903b196085869800e (patch) | |
tree | b957400f411e356a7312e1180dd606696f8490fe /src/elab_env.sml | |
parent | 8c7878bfb0622f9aa99b404e3793c5aa17443966 (diff) |
Simple elaboration working
Diffstat (limited to 'src/elab_env.sml')
-rw-r--r-- | src/elab_env.sml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/elab_env.sml b/src/elab_env.sml index 2199ccbe..27ea1750 100644 --- a/src/elab_env.sml +++ b/src/elab_env.sml @@ -50,7 +50,7 @@ datatype 'a var = type env = { renameC : kind var' SM.map, relC : (string * kind) list, - namedC : (string * kind) IM.map, + namedC : (string * kind * con option) IM.map, renameE : con var' SM.map, relE : (string * con) list, @@ -87,21 +87,21 @@ fun lookupCRel (env : env) n = (List.nth (#relC env, n)) handle Subscript => raise UnboundRel n -fun pushCNamedAs (env : env) x n k = +fun pushCNamedAs (env : env) x n k co = {renameC = SM.insert (#renameC env, x, Named' (n, k)), relC = #relC env, - namedC = IM.insert (#namedC env, n, (x, k)), + namedC = IM.insert (#namedC env, n, (x, k, co)), renameE = #renameE env, relE = #relE env, namedE = #namedE env} -fun pushCNamed env x k = +fun pushCNamed env x k co = let val n = !namedCounter in namedCounter := n + 1; - (pushCNamedAs env x n k, n) + (pushCNamedAs env x n k co, n) end fun lookupCNamed (env : env) n = |