Mercurial > urweb

diff src/mono_opt.sml @ 1467:8fce85939259

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bug with string literals in unAs
author Adam Chlipala <adam@chlipala.net>
date Mon, 30 May 2011 09:31:50 -0400
parents 2f5fd248588d
children 0577be31a435
line wrap: on
line diff
--- a/src/mono_opt.sml	Mon May 30 07:48:08 2011 -0400
+++ b/src/mono_opt.sml	Mon May 30 09:31:50 2011 -0400
@@ -102,7 +102,7 @@
         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)