Mercurial > urweb

diff src/monoize.sml @ 1207:ae3036773768

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Introduced the known() predicate
author Adam Chlipala <adamc@hcoop.net>
date Tue, 06 Apr 2010 09:51:36 -0400
parents c316ca3c9ec6
children 648e6b087dfb
line wrap: on
line diff
--- a/src/monoize.sml	Sun Apr 04 17:44:12 2010 -0400
+++ b/src/monoize.sml	Tue Apr 06 09:51:36 2010 -0400
@@ -2580,6 +2580,8 @@
                                          "octet_length"
                                      else
                                          "length")), loc), fm)
+          | L.ECApp ((L.EFfi ("Basis", "sql_known"), _), _) =>
+            ((L'.EFfi ("Basis", "sql_known"), loc), fm)
 
           | (L.ECApp (
              (L.ECApp (