Call me Ro, all my friends do.
Question: Do I have an extraneous eval?
proc a> {a args} {eval [list interp alias {} $a {}] $args}
a> p puts ; a> s set
a> sr list ::S ; a> ss s [sr] ; ss {1 2 3}
a> . eval {lindex [ss] 0}
a> drop eval {ss [lreplace [ss] 0 0]}
a> ex eval {eval [.] ; drop}
a> ? s errorInfo
GPS: Ro, that's very clever usage of interp alias. :)
DKF: There are no extra eval uses in there.
Wiki Ideas
Bonus Material
% proc |ex {s x} {foreach a [split $x |] {eval $s $a}}
% |ex puts {frozen | bobble | nibble}
frozen
bobble
nibble