- set m [join [split $n -] _]
- set inf(imports,$n) [list [lindex $prefix 0]$m \
- [lindex $prefix 1]$m]
+ if {[info exists inf(map,$val,$n)]} {
+ set v $inf(map,$val,$n)
+ } else {
+ set v $n
+ }
+ set w [join [split $v -] _]
+ set inf(imports,$n) [list [lindex $prefix 0]$w \
+ [lindex $prefix 1]$w]