Changeset 5894


Ignore:
Timestamp:
Oct 1, 2015 7:29:29 AM (7 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.