set_units

This commit is contained in:
James Cherry 2019-07-13 16:56:46 -07:00
parent fa849908d7
commit 73fb94a2dd
1 changed files with 1 additions and 1 deletions

View File

@ -221,7 +221,7 @@ proc check_unit { unit key unit_name key_var } {
set suffix [string range $value 1 end]
if { [string equal -nocase $suffix $unit_name] } {
set scale [unit_prefix_scale $unit $prefix]
check_unit_scale $unit 1.0 $scale
check_unit_scale $unit $scale
} else {
sta_error "unknown unit $unit '$suffix'."
}