diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 08:54:49 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-26 08:54:49 -0400 |
commit | aabe8dd88a80467442826e460e6b01f0dad2fb4d (patch) | |
tree | 2c4168a9d016a992769bbb6a2eec11d27cdfad64 /src/explify.sml | |
parent | 55ac3f4f2af733079401d83e98431e6d11b0fc59 (diff) |
Proper hiding of shadowed bindings in principal signatures
Diffstat (limited to 'src/explify.sml')
-rw-r--r-- | src/explify.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/explify.sml b/src/explify.sml index 03744dba..0c3f5f1f 100644 --- a/src/explify.sml +++ b/src/explify.sml @@ -87,7 +87,7 @@ fun explifySgi (sgi, loc) = | L.SgiCon (x, n, k, c) => (L'.SgiCon (x, n, explifyKind k, explifyCon c), loc) | L.SgiVal (x, n, c) => (L'.SgiVal (x, n, explifyCon c), loc) | L.SgiStr (x, n, sgn) => (L'.SgiStr (x, n, explifySgn sgn), loc) - | L.SgiSgn _ => raise Fail "Explify SgiSgn" + | L.SgiSgn (x, n, sgn) => (L'.SgiSgn (x, n, explifySgn sgn), loc) and explifySgn (sgn, loc) = case sgn of @@ -95,7 +95,7 @@ and explifySgn (sgn, loc) = | L.SgnVar n => (L'.SgnVar n, loc) | L.SgnFun (m, n, dom, ran) => (L'.SgnFun (m, n, explifySgn dom, explifySgn ran), loc) | L.SgnWhere (sgn, x, c) => (L'.SgnWhere (explifySgn sgn, x, explifyCon c), loc) - | L.SgnProj _ => raise Fail "Explify SgnProj" + | L.SgnProj x => (L'.SgnProj x, loc) | L.SgnError => raise Fail ("explifySgn: SgnError at " ^ EM.spanToString loc) fun explifyDecl (d, loc : EM.span) = |