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 | 9f1124b65aea0bdd0909184ebf8056cd64d7c546 (patch) | |
| tree | 06ccd5ffa3c0d2e8de3de1607301f8c2dfd4ad39 /src/mono_reduce.sml | |
| parent | 677c10e07e93c08f5990a9c74dae4da65b7270f8 (diff) | |
Introduced the known() predicate
Diffstat (limited to 'src/mono_reduce.sml')
| -rw-r--r-- | src/mono_reduce.sml | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/mono_reduce.sml b/src/mono_reduce.sml index 6bd5ceb8..e5dd3213 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -193,6 +193,12 @@ fun match (env, p : pat, e : exp) = else No + | (PPrim (Prim.String s), EStrcat (_, (EPrim (Prim.String s'), _))) => + if String.isSuffix s' s then + Maybe + else + No + | (PPrim p, EPrim p') => if Prim.equal (p, p') then Yes env |