diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-05-14 08:13:54 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-05-14 08:13:54 -0400 |
| commit | fdc4582e7fbfaecebaa2d27660a0184d9949b232 (patch) | |
| tree | cd83a1670f329d23e70b5b1017d2ead58829009c /src/especialize.sml | |
| parent | 8c48972ebbb4fa43af6dee99b79648fe1546d867 (diff) | |
Improving/reordering Unpoly and Especialize; pathmaps
Diffstat (limited to 'src/especialize.sml')
| -rw-r--r-- | src/especialize.sml | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/especialize.sml b/src/especialize.sml index d1d018ee..03be01b1 100644 --- a/src/especialize.sml +++ b/src/especialize.sml @@ -148,6 +148,13 @@ fun specialize' file = val functionInside = U.Con.exists {kind = fn _ => false, con = fn TFun _ => true | CFfi ("Basis", "transaction") => true + | CFfi ("Basis", "eq") => true + | CFfi ("Basis", "num") => true + | CFfi ("Basis", "ord") => true + | CFfi ("Basis", "show") => true + | CFfi ("Basis", "read") => true + | CFfi ("Basis", "sql_injectable_prim") => true + | CFfi ("Basis", "sql_injectable") => true | _ => false} val loc = ErrorMsg.dummySpan |