diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-02 17:31:45 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-02 17:31:45 -0400 |
| commit | ab29ac3337d2be88ae3288652e999873be1dcf14 (patch) | |
| tree | d3816565ec3c8518bb73979bd5957e8d324375f9 /src/mono_reduce.sml | |
| parent | 5885d66bebeece6ba2f7b6a1b11f719086423114 (diff) | |
Compiling a parametrized query the inefficient way
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 5367be60..cc44869a 100644 --- a/src/mono_reduce.sml +++ b/src/mono_reduce.sml @@ -97,6 +97,12 @@ fun match (env, p : pat, e : exp) = (PWild, _) => Yes env | (PVar (x, t), _) => Yes (E.pushERel env x t (SOME e)) + | (PPrim (Prim.String s), EStrcat ((EPrim (Prim.String s'), _), _)) => + if String.isPrefix s' s then + Maybe + else + No + | (PPrim p, EPrim p') => if Prim.equal (p, p') then Yes env |