diff options
author | Adam Chlipala <adam@chlipala.net> | 2011-05-30 09:31:50 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2011-05-30 09:31:50 -0400 |
commit | ce09df0fd2af2465c1df0fbeacf0cb6a07cd2add (patch) | |
tree | fbcc9d6f1fc4ec715af7af96f489195487cc4fc0 /src/mono_opt.sml | |
parent | 8fa4027917a95498a0b354e614aaad7e0210e2d7 (diff) |
Fix bug with string literals in unAs
Diffstat (limited to 'src/mono_opt.sml')
-rw-r--r-- | src/mono_opt.sml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/mono_opt.sml b/src/mono_opt.sml index ffadeec4..5abbf900 100644 --- a/src/mono_opt.sml +++ b/src/mono_opt.sml @@ -102,7 +102,7 @@ fun unAs s = fun doChars (cs, acc) = case cs of #"T" :: #"_" :: #"T" :: #"." :: cs => doChars (cs, acc) - | #"'" :: cs => doString (cs, acc) + | #"'" :: cs => doString (cs, #"'" :: acc) | ch :: cs => doChars (cs, ch :: acc) | [] => String.implode (rev acc) |