Mercurial > urweb

diff src/elab_env.sml @ 1058:86b831978b8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Recursive hnormSgn for projections of signatures from modules
author Adam Chlipala <adamc@hcoop.net>
date Sat, 05 Dec 2009 14:34:44 -0500
parents 6d9538ce94d8
children b2311dfb3158
line wrap: on
line diff
--- a/src/elab_env.sml	Sat Dec 05 14:01:34 2009 -0500
+++ b/src/elab_env.sml	Sat Dec 05 14:34:44 2009 -0500
@@ -1088,7 +1088,7 @@
                                  sgn = sgn,
                                  field = x} of
                 NONE => raise Fail "ElabEnv.hnormSgn: projectSgn failed"
-              | SOME sgn => sgn
+              | SOME sgn => hnormSgn env sgn
         end
       | SgnWhere (sgn, x, c) =>
         case #1 (hnormSgn env sgn) of