From e7e2ffc58a4f120801ae69217032948e511af213 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 26 Jan 2008 16:02:47 -0500 Subject: Elaborating files --- src/elab_env.sml | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'src/elab_env.sml') diff --git a/src/elab_env.sml b/src/elab_env.sml index 7b932aad..9a2655e4 100644 --- a/src/elab_env.sml +++ b/src/elab_env.sml @@ -75,15 +75,17 @@ fun lookupCRel (env : env) n = (List.nth (#relC env, n)) handle Subscript => raise UnboundRel n -fun pushCNamed (env : env) x k = +fun pushCNamedAs (env : env) x n k = + {renameC = SM.insert (#renameC env, x, CNamed' (n, k)), + relC = #relC env, + namedC = IM.insert (#namedC env, n, (x, k))} + +fun pushCNamed env x k = let val n = !namedCounter in namedCounter := n + 1; - ({renameC = SM.insert (#renameC env, x, CNamed' (n, k)), - relC = #relC env, - namedC = IM.insert (#namedC env, n, (x, k))}, - n) + (pushCNamedAs env x n k, n) end fun lookupCNamed (env : env) n = -- cgit v1.2.3