something like this?
Posted to
tcl
by colin at Sat Jan 12 05:50:14 GMT 2013
view raw
proc
nfor {args} {
foreach
{v n} [
lassign
[lreverse
$args
] body] {
set
body [
list
foreach
$n
$v
$body
]
}
uplevel
1
$body
}
Recent Posts
tcl by egavilan
8 days ago
tcl by bch
14 days ago
tcl by Bradipo
14 days ago
tcl by aspect
14 days ago
tcl by Bradipo
14 days ago
tcl by Bradipo
14 days ago
tcl by Bradipo
14 days ago
lilypond by Bradipo
15 days ago
tcl by cgm
25 days ago
tcl by dandyn
34 days ago
Submit
New paste
Documentation
From Jabber