diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2010-11-19 15:01:06 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2010-11-19 15:01:06 -0500 |
| commit | 0d2d940a2932847de8553dae4cae54797c02e157 (patch) | |
| tree | 2b2bca2ab0a05f55612ac88523e4bf73bbd485dd /src/mono_opt.sml | |
| parent | fb86b2e0894c5c51a30dc38cf530e80ce68a710a (diff) | |
Simplify Basis.strcat calls in MonoOpt
Diffstat (limited to 'src/mono_opt.sml')
| -rw-r--r-- | src/mono_opt.sml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index c3bd0b2d..6e137dc5 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -135,6 +135,8 @@ fun exp e = in EPrim (Prim.String (String.implode (rev chs))) end + + | EFfiApp ("Basis", "strcat", [e1, e2]) => exp (EStrcat (e1, e2)) | EStrcat ((EPrim (Prim.String s1), loc), (EPrim (Prim.String s2), _)) => let |