diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-06-19 16:04:28 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-19 16:04:28 -0400 |
commit | 7a1c5e1780fd3c56d9c591821905bb3b3bbfa50a (patch) | |
tree | 1ea265b32102b42663cc227b04c8c4e86e4b136f /src/explify.sml | |
parent | 5a4ddea95a551c5f95f0dcbda433fe457b61d25a (diff) |
Beginning of functor elaboration
Diffstat (limited to 'src/explify.sml')
-rw-r--r-- | src/explify.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/explify.sml b/src/explify.sml index a1953fab..caba15d1 100644 --- a/src/explify.sml +++ b/src/explify.sml @@ -92,6 +92,7 @@ and explifySgn (sgn, loc) = case sgn of L.SgnConst sgis => (L'.SgnConst (map explifySgi sgis), loc) | L.SgnVar n => (L'.SgnVar n, loc) + | L.SgnFun _ => raise Fail "Explify functor signature" | L.SgnError => raise Fail ("explifySgn: SgnError at " ^ EM.spanToString loc) fun explifyDecl (d, loc : EM.span) = @@ -107,6 +108,7 @@ and explifyStr (str, loc) = L.StrConst ds => (L'.StrConst (map explifyDecl ds), loc) | L.StrVar n => (L'.StrVar n, loc) | L.StrProj (str, s) => (L'.StrProj (explifyStr str, s), loc) + | L.StrFun _ => raise Fail "Explify functor" | L.StrError => raise Fail ("explifyStr: StrError at " ^ EM.spanToString loc) val explify = map explifyDecl |