Posted to tcl by Bradipo at Tue Jun 28 18:22:29 GMT 2016view raw

  1. % set test [list {>\s}]
  2. {>\s}
  3. % foreach i $test { puts $i }
  4. >\s
  5. % puts $test
  6. {>\s}
  7.