diff options
author | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 10:51:41 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 10:51:41 -0400 |
commit | b4398c433195b75d5e03d0774b1128fae14e9f41 (patch) | |
tree | 70e65dddc4c89b8cd1e13fce0d0c2ce21f50d67a /src/corify.sml | |
parent | 8a494ef37c4f4f7e15bbf173f44f81d12a60b91b (diff) |
'database' declaration threaded through compiler
Diffstat (limited to 'src/corify.sml')
-rw-r--r-- | src/corify.sml | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/corify.sml b/src/corify.sml index 50d47068..91c82375 100644 --- a/src/corify.sml +++ b/src/corify.sml @@ -863,6 +863,8 @@ fun corifyDecl ((d, loc : EM.span), st) = ([(L'.DTable (x, n, corifyCon st c, s), loc)], st) end + | L.DDatabase s => ([(L'.DDatabase s, loc)], st) + and corifyStr ((str, _), st) = case str of L.StrConst ds => @@ -913,7 +915,8 @@ fun maxName ds = foldl (fn ((d, _), n) => | L.DStr (_, n', _, str) => Int.max (n, Int.max (n', maxNameStr str)) | L.DFfiStr (_, n', _) => Int.max (n, n') | L.DExport _ => n - | L.DTable (_, _, n', _) => Int.max (n, n')) + | L.DTable (_, _, n', _) => Int.max (n, n') + | L.DDatabase _ => n) 0 ds and maxNameStr (str, _) = |