diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-06-19 15:15:00 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-06-19 15:15:00 -0400 |
| commit | 5a4ddea95a551c5f95f0dcbda433fe457b61d25a (patch) | |
| tree | 60135c04bf54aba0d443ec39a4dc37ec0f399852 /src/elaborate.sml | |
| parent | 8e98be7de2dd3db541994aae47aeb45756f60098 (diff) | |
Functor parsing
Diffstat (limited to 'src/elaborate.sml')
| -rw-r--r-- | src/elaborate.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml index 29d12b07..d482f9a0 100644 --- a/src/elaborate.sml +++ b/src/elaborate.sml @@ -1097,6 +1097,7 @@ and elabSgn env (sgn, loc) = (sgnError env (UnboundSgn (loc, x)); (L'.SgnError, loc)) | SOME (n, sgis) => (L'.SgnVar n, loc)) + | L.SgnFun _ => raise Fail "Elaborate functor sig" fun sgiOfDecl (d, loc) = case d of @@ -1343,6 +1344,7 @@ and elabStr env (str, loc) = (strerror, sgnerror)) | SOME sgn => ((L'.StrProj (str', x), loc), sgn) end + | L.StrFun _ => raise Fail "Elaborate functor" val elabFile = ListUtil.foldlMap elabDecl |