Mercurial > urweb

diff src/elaborate.sml @ 1182:0b1d666bddb4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Spiffed-up Split1; remove spurious error message triggered by 'open'ing a module containing a functor
author Adam Chlipala <adamc@hcoop.net>
date Tue, 09 Mar 2010 17:50:42 -0500
parents 8d3aa6c7cee0
children 61c3139eab12
line wrap: on
line diff
--- a/src/elaborate.sml	Sat Mar 06 19:14:48 2010 -0500
+++ b/src/elaborate.sml	Tue Mar 09 17:50:42 2010 -0500
@@ -2066,11 +2066,7 @@
 
             fun collect first (st, sgn) =
                 case E.projectConstraints env {sgn = sgn, str = st} of
-                    NONE => (if first then
-                                 strError env (UnboundStr (loc, str))
-                             else
-                               ();
-                             [])
+                    NONE => []
                   | SOME cs =>
                     case #1 (hnormSgn env sgn) of
                         L'.SgnConst sgis =>