diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2014-02-09 19:29:50 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2014-02-09 19:29:50 -0500 |
| commit | 5537bc4338b4a576b225810c5cca34d3ca7de87f (patch) | |
| tree | 6bbd2238f511fbefc531ca0a2e7926425ca9f26d /src/elaborate.sml | |
| parent | a9e2b0c2efbddf0ec9e7199c486b7f0ed736d6e8 (diff) | |
| parent | 9d54ae0acdcafa014d7217c712f2ee3530ed7635 (diff) | |
Merge
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index dfa8d0e2..0c8db756 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -873,8 +873,9 @@ | _ => false} val (others1, others2) = eatMatching (fn (c1, c2) => - not (hasUnifs c1 andalso hasUnifs c2) - andalso consEq env loc (c1, c2)) (#others s1, #others s2) + c1 = c2 + orelse (not (hasUnifs c1 andalso hasUnifs c2) + andalso consEq env loc (c1, c2))) (#others s1, #others s2) (*val () = eprefaces "Summaries3" [("#1", p_summary env {fields = fs1, unifs = unifs1, others = others1}), ("#2", p_summary env {fields = fs2, unifs = unifs2, others = others2})]*) |