Sujet : lsearch proposed option
De : rich (at) *nospam* example.invalid (Rich)
Groupes : comp.lang.tclDate : 02. Jan 2025, 22:39:32
Autres entêtes
Organisation : A noiseless patient Spider
Message-ID : <vl712k$3h5v2$1@dont-email.me>
User-Agent : tin/2.6.1-20211226 ("Convalmore") (Linux/5.15.139 (x86_64))
aotto1968 <
aotto1968@t-online.de> wrote:
It is preferable to start a new thread for a new topic.
other stuff
# OLD
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
expr {[llength [lsearch -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls]] > 0}
}
# want to have
proc ::myoo::ClassIs {myR cls} {
upvar $myR my
lsearch -exists -exact -sorted [set $my(__CLASS__)::__SUPER__SORTED__] $cls
}
ONE simple FLAG erase a lot of code.
Write up a TIP, and supply an implementation, and the maintainers just
might add your feature.
lsearch proposed option
Re: lsearch proposed option