Mercurial > urweb

diff src/elab_env.sml @ 471:20fab0e96217

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tree demo working (and other assorted regressions fixed)
author Adam Chlipala <adamc@hcoop.net>
date Thu, 06 Nov 2008 19:43:48 -0500
parents 3f1b9231a37b
children 0fc08d1750e1
line wrap: on
line diff
--- a/src/elab_env.sml	Thu Nov 06 18:49:38 2008 -0500
+++ b/src/elab_env.sml	Thu Nov 06 19:43:48 2008 -0500
@@ -542,6 +542,9 @@
         NONE => raise UnboundNamed n
       | SOME x => x
 
+fun checkENamed (env : env) n =
+    Option.isSome (IM.find (#namedE env, n))
+
 fun lookupE (env : env) x =
     case SM.find (#renameE env, x) of
         NONE => NotBound