summaryrefslogtreecommitdiff
path: root/src/elaborate.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2010-03-09 17:50:42 -0500
committerGravatar Adam Chlipala <adamc@hcoop.net>2010-03-09 17:50:42 -0500
commit886cb3fa5ae08b3012411dd1243ceace4406978a (patch)
treeb7ccc2801d770e3641ccefff3f2bfd26b4591116 /src/elaborate.sml
parentdf76c398867ef66c583e5d481bdb33e046acfc09 (diff)
Spiffed-up Split1; remove spurious error message triggered by 'open'ing a module containing a functor
Diffstat (limited to 'src/elaborate.sml')
-rw-r--r--src/elaborate.sml6
1 files changed, 1 insertions, 5 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml
index f1ddd83e..78583bc8 100644
--- a/src/elaborate.sml
+++ b/src/elaborate.sml
@@ -2066,11 +2066,7 @@ fun dopenConstraints (loc, env, denv) {str, strs} =
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 =>