Author: mdiep Date: Fri Nov 4 13:32:30 2005 New Revision: 9786 Modified: trunk/languages/tcl/lib/parser.pir Log: tcl: Make all strings unicode
Modified: trunk/languages/tcl/lib/parser.pir ============================================================================== --- trunk/languages/tcl/lib/parser.pir (original) +++ trunk/languages/tcl/lib/parser.pir Fri Nov 4 13:32:30 2005 @@ -723,7 +723,7 @@ stringish: $P1 = find_global "Data::Escape", "String" thing = $P1(thing,"\"") - lquote = "\"" # XXX might eventually put unicode: here. + lquote = "unicode:\"" rquote = "\"" set_args:
