- if {![llength $ncontexts]} {
- puts stderr "must start at letter LHS!"
- return
- }
- foreach c $ncontexts {
- set bm [dbkey $c $c0 $c1]
- do_database_update $bm $strq
+ debug "DEFINE $c0 $c1 $new_context {$ncontexts}"
+ if {[llength $ncontexts]==1} {
+ set c [lindex $ncontexts 0]
+ } elseif {[lsearch -exact $new_context $ncontexts]>=0} {
+ set c $new_context
+ } else {
+ puts stderr "Selected context is not one of the many possibilities."
+ return;