proc speedw-do-abs {w speed} {
upvar #0 speed/$w s
+ if {$speed == [speedw-currentspeed $w]} return
set s(queued) $speed
speedw-check $w
}
}
set step $nextstep
}
- if {$step != $gcommanded} {
- speedw-do-abs $tb(speedw) $step
- }
+ speedw-do-abs $tb(speedw) $step
}
tractbrake-queue-update $train
}