diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-31 09:00:28 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-31 09:00:28 -0400 |
| commit | 652ca797f5c9de9adc198df0c0e8a706807328a6 (patch) | |
| tree | d169fb294b36335dbe40525678328c7b0dc21c13 /src/monoize.sml | |
| parent | 773cc619b71ad10b8f21f6941d67947bac86885f (diff) | |
Corify tables
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index ba9c2087..9142e63c 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -809,6 +809,7 @@ fun monoDecl (env, fm) (all as (d, loc)) = in SOME (env, fm, (L'.DExport (ek, s, n, ts), loc)) end + | L.DTable _ => raise Fail "Monoize DTable" end fun monoize env ds = |