Bug TCL sur un bind raw

[djkenny]

...

tclcopier

debian:~# tclsh8.5
% set var "ma liste foireuse"
ma liste foireuse
% set var [linsert $var 1 \"]
ma {"} liste foireuse
% set var [linsert $var 1 \}]
ma \} {"} liste foireuse
% set var [join $var]
ma } " liste foireuse
% lindex $var 0
unmatched open quote in list
% lindex [string map {"\\" "\\\\" "\{" "\\\{" "\}" "\\\}" "\[" "\\\[" "\]" "\\\]" "\"" "\\\""} $var] 0
ma