Changeset 5894 for branches/1.4


Ignore:
Timestamp:
Oct 1, 2015, 7:29:29 AM (9 years ago)
Author:
gah
Message:

fix switch bug: value may start with a minus

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/1.4/lang/tcl/scripts/units.tcl

    r5708 r5894  
    122122
    123123    switch -- [lindex $value 0] {
    124         normal -
    125         gaussian {
     124        normal - gaussian {
    126125            # get the mean
    127126            set mean [_check_range [lindex $value 1] $min $max $units]
    … …  
    174173    set value [split $value]
    175174
    176     switch [lindex $value 0] {
    177         normal -
    178         gaussian {
     175    switch -- [lindex $value 0] {
     176        normal - gaussian {
    179177            set valtype gaussian
    180178            set vals [lrange $value 1 2]
Note: See TracChangeset for help on using the changeset viewer.