Mercurial > urweb

comparison 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
comparison
equal deleted inserted replaced
1206:772760df4c4c 1207:ae3036773768
2578 | L.EFfi ("Basis", "sql_octet_length") => 2578 | L.EFfi ("Basis", "sql_octet_length") =>
2579 ((L'.EPrim (Prim.String (if #supportsOctetLength (Settings.currentDbms ()) then 2579 ((L'.EPrim (Prim.String (if #supportsOctetLength (Settings.currentDbms ()) then
2580 "octet_length" 2580 "octet_length"
2581 else 2581 else
2582 "length")), loc), fm) 2582 "length")), loc), fm)
2583 | L.ECApp ((L.EFfi ("Basis", "sql_known"), _), _) =>
2584 ((L'.EFfi ("Basis", "sql_known"), loc), fm)
2583 2585
2584 | (L.ECApp ( 2586 | (L.ECApp (
2585 (L.ECApp ( 2587 (L.ECApp (
2586 (L.ECApp ( 2588 (L.ECApp (
2587 (L.ECApp ( 2589 (L.ECApp (