diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-22 15:12:20 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-22 15:12:20 -0400 |
| commit | e8ceaa0ae216c7c85e810998ab97989e7a83c82d (patch) | |
| tree | f26deeee6825b28bb3e6005523f887de3c1a79a4 /src/mono_shake.sml | |
| parent | b1997d2e699e92e83f7130b7b4a4c5467dcdcd27 (diff) | |
Simple forms work
Diffstat (limited to 'src/mono_shake.sml')
| -rw-r--r-- | src/mono_shake.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_shake.sml b/src/mono_shake.sml index b5b45a0e..76d05061 100644 --- a/src/mono_shake.sml +++ b/src/mono_shake.sml @@ -44,7 +44,7 @@ type free = { fun shake file = let val page_es = List.foldl - (fn ((DExport (_, n, _), _), page_es) => n :: page_es + (fn ((DExport (_, _, n, _), _), page_es) => n :: page_es | (_, page_es) => page_es) [] file val (cdef, edef) = foldl (fn ((DVal (_, n, t, e, _), _), (cdef, edef)) => (cdef, IM.insert (edef, n, (t, e))) |