Mercurial > urweb
diff src/explify.sml @ 59:abb2b32c19fb
Subsignatures
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 22 Jun 2008 19:10:38 -0400 |
| parents | 0a5c312de09a |
| children | d609820c5834 |
line wrap: on
line diff
--- a/src/explify.sml Sun Jun 22 18:17:21 2008 -0400 +++ b/src/explify.sml Sun Jun 22 19:10:38 2008 -0400 @@ -87,6 +87,7 @@ | 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" and explifySgn (sgn, loc) = case sgn of @@ -94,6 +95,7 @@ | 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.SgnError => raise Fail ("explifySgn: SgnError at " ^ EM.spanToString loc) fun explifyDecl (d, loc : EM.span) =