From ce09df0fd2af2465c1df0fbeacf0cb6a07cd2add Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Mon, 30 May 2011 09:31:50 -0400
Subject: Fix bug with string literals in unAs

---
 src/mono_opt.sml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/mono_opt.sml')

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)
 
-- 
cgit v1.2.3