diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2014-12-30 17:02:31 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2014-12-30 17:02:31 -0500 |
| commit | 52ad90187e17e4191004b8d71f636bbf42057cbc (patch) | |
| tree | d0faf112284b863719e379421624781322b30be9 | |
| parent | ded88e6c25676656959a52a921506287d370358a (diff) | |
Fix a bug in subsignature checking for submodules
| -rw-r--r-- | src/elaborate.sml | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 84d3dc09..ca3bac24 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -3345,7 +3345,12 @@ and subSgn' counterparts env strLoc sgn1 (sgn2 as (_, loc2)) = L'.SgiStr (x', n1, sgn1) => if x = x' then let + (* Don't forget to save & restore the + * counterparts map around recursive calls! + * Otherwise, all sorts of mayhem may result. *) + val saved = !counterparts val () = subSgn' counterparts env loc sgn1 sgn2 + val () = counterparts := saved val env = E.pushStrNamedAs env x n1 sgn1 val env = if n1 = n2 then env |