From d42984a08f8ea44123c84f267e060a7e97a003f0 Mon Sep 17 00:00:00 2001
From: bringert <unknown>
Date: Tue, 7 Dec 2004 13:02:27 +0000
Subject: Do string sharing after unescaping in source and canonical grammars.

---
 src/GF/Source/LexGF.x | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/GF/Source/LexGF.x')

diff --git a/src/GF/Source/LexGF.x b/src/GF/Source/LexGF.x
index 6894276d1..e249f1705 100644
--- a/src/GF/Source/LexGF.x
+++ b/src/GF/Source/LexGF.x
@@ -27,7 +27,7 @@ $white+ ;
 \' ($u # \')* \' { tok (\p s -> PT p (eitherResIdent (T_LString . shareString) s)) } -- H
 
 $l $i*   { tok (\p s -> PT p (eitherResIdent (TV . shareString) s)) } -- H
-\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ unescapeInitTail $ shareString s)) } -- H
+\" ([$u # [\" \\ \n]] | (\\ (\" | \\ | \' | n | t)))* \"{ tok (\p s -> PT p (TL $ shareString $ unescapeInitTail s)) } -- H
 
 $d+      { tok (\p s -> PT p (TI s))    }
 
-- 
cgit v1.2.3