diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2010-04-06 09:51:36 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2010-04-06 09:51:36 -0400 |
| commit | 74ecd5a7a53d963f28fbbcbab36b259c169cf5f5 (patch) | |
| tree | 06ccd5ffa3c0d2e8de3de1607301f8c2dfd4ad39 /src/monoize.sml | |
| parent | 89847d23349351824f756164f0cead93156e207e (diff) | |
Introduced the known() predicate
Diffstat (limited to 'src/monoize.sml')
| -rw-r--r-- | src/monoize.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/monoize.sml b/src/monoize.sml index 6f229766..073c26de 100644 --- a/src/monoize.sml +++ b/src/monoize.sml @@ -2580,6 +2580,8 @@ fun monoExp (env, st, fm) (all as (e, loc)) = "octet_length" else "length")), loc), fm) + | L.ECApp ((L.EFfi ("Basis", "sql_known"), _), _) => + ((L'.EFfi ("Basis", "sql_known"), loc), fm) | (L.ECApp ( (L.ECApp ( |