Posted to tcl by hypnotoad at Wed Sep 26 21:31:49 GMT 2018view raw
- basra:~ seandeelywoods$ cat test.tcl
- proc Foreach {body args} { tailcall foreach list $args $body }
- set result {}
- Foreach {puts [list is [llength $result] long] ; lappend result {*}$list} \
- {a b c} \
- {d e f}
- puts FINAL
- puts [list is [llength $result] long]
- basra:~ seandeelywoods$ tclsh test.tcl
- is 0 long
- is 3 long
- FINAL
- is 6 long
- basra:~ seandeelywoods$