diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-11-08 16:02:59 -0500 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-11-08 16:02:59 -0500 |
| commit | b5cfe6cf7eeff856dc3ddca5ad4b2b5bb894f7ee (patch) | |
| tree | 6078fbad4c3562d8fd6401001a5c02628fd06ba4 /src/elaborate.sml | |
| parent | 437a207ec01c2ab18bb424cc2d6d36b59f3c8efb (diff) | |
Especialize handles records better
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 17133d93..70429c1b 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -2615,14 +2615,14 @@ fun subSgn (env, denv) sgn1 (sgn2 as (_, loc2)) = | (L'.SgnFun (m1, n1, dom1, ran1), L'.SgnFun (m2, n2, dom2, ran2)) => let - val ran1 = + val ran2 = if n1 = n2 then - ran1 + ran2 else - subStrInSgn (n1, n2) ran1 + subStrInSgn (n2, n1) ran2 in subSgn (env, denv) dom2 dom1; - subSgn (E.pushStrNamedAs env m2 n2 dom2, denv) ran1 ran2 + subSgn (E.pushStrNamedAs env m1 n1 dom2, denv) ran1 ran2 end | _ => sgnError env (SgnWrongForm (sgn1, sgn2))) |