Tcl Source Code

Artifact b0a28a811d343e9048016c6971948a7098198644:

Attachment "lappend_bug_hl.txt" to ticket [3057639fff] added by andreas_kupries 2010-09-02 00:46:28.

---

proc test1 {oper elem value}  {
    switch -exact $oper { add { lappend ::env($elem) $value } }
}
proc test2 {oper elem value}  {
    switch -exact -- $oper { add { lappend ::env($elem) $value } }
}
test1 add key1 "new value"
test2 add key2 "new value"