diff options
| author |  Karn Kallio <kkallio@eka> | 2011-04-30 23:26:08 -0530 |
|---|---|---|
| committer | Karn Kallio <kkallio@eka> | 2011-04-30 23:26:08 -0530 |
| commit | b25211f8bdd3c17b9d56158a8c71712f2ed20f63 (patch) | |
| tree | bd9761bfc79d76a236fcb8da8787033b6c61f03c /src/elab_env.sml | |
| parent | 07c4bf822d9d94ea15f4a6ae5a4a2e1edd52e05e (diff) | |
Fix bug in projection of constructors from modules in class rules.
Diffstat (limited to 'src/elab_env.sml')
| -rw-r--r-- | src/elab_env.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elab_env.sml b/src/elab_env.sml index 3217669c..23f3df01 100644 --- a/src/elab_env.sml +++ b/src/elab_env.sml @@ -1043,8 +1043,8 @@ fun sgnS_con' (m1, ms', (sgns, strs, cons)) = U.Con.map {kind = fn x => x, con = fn c => case c of - CModProj (m1, ms, x) => - (case IM.find (strs, m1) of + CModProj (m1', ms, x) => + (case IM.find (strs, m1') of NONE => c | SOME m1x => CModProj (m1, ms' @ m1x :: ms, x)) | CNamed n => |