diff options
| author | bringert <unknown> | 2004-12-07 13:02:27 +0000 |
|---|---|---|
| committer | bringert <unknown> | 2004-12-07 13:02:27 +0000 |
| commit | d42984a08f8ea44123c84f267e060a7e97a003f0 (patch) | |
| tree | 781cb5744d48579cee3af5599f3d4c0083ce6c6b /src/GF/Source/LexGF.x | |
| parent | eaa2dcde072b91a03b0cb4f17568900d39678c25 (diff) | |
Do string sharing after unescaping in source and canonical grammars.
Diffstat (limited to 'src/GF/Source/LexGF.x')
| -rw-r--r-- | src/GF/Source/LexGF.x | 2 |
1 files changed, 1 insertions, 1 deletions
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)) } |