A page to collect useful Sugar macros.
This one was suggested by Richard Suchenwirth (but the implementation is mine (SS), so even possible bugs):
sugar::macro inlist argv { if {[llength $argv] != 3} {error "Bad number of arguments"} list expr \ "\{\[lsearch -exact [lindex $argv 1] [lindex $argv 2]\] != -1\}" }
This expands
inlist $list $foo
in
expr {[lsearch -exact $list $foo] != -1}