}
proc realtime-retry-reset {} {
- global realtime_retry
+ global realtime_retry serchan
if {![info exists realtime_retry]} return
if {![llength $realtime_retry]} return
manyset $realtime_retry timeoutid
}
proc realtime-retry-realtime-failed {} {
- global realtime_retry dev_railway serchan
+ global realtime_retry serchan
if {![info exists realtime_retry]} return
if {[llength $realtime_retry]} { error "huh? $realtime_retry" }
fileevent $serchan readable realtime-retry-serchan-readable
proc startup {} {
global queueing executing testmode realtime port urandom serchan
+ global dev_railway
catch { close $master }; catch { unset master }
setting testmode 0 {[01]}