fixes from testing session

[trains.git] / hostside / stopgap-controller

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index 45de0e8ab274f8478de597f59c73f9526c2958c5..607609d0bd64ec5a117a560a007aea6c09a47a1e 100755 (executable)
--- a/hostside/stopgap-controller
+++ b/hostside/stopgap-controller
@@ -188,7 +188,7 @@ proc pt_maybe {point oneisright} {
        }
        set pointasked M
     } elseif {![string compare $pointasked M]} {
-       debug "leave point $point pos=$pos manual"
+       debug "leave point $point manual"
        return
     } else {
        set pos $pointasked
@@ -445,6 +445,7 @@ proc onreadcmd {} {
 
 proc setup {} {
     global port p testonly
+    fconfigure stdout -buffering none
     if {!$testonly} {
        set p [open $port {RDWR NONBLOCK} 0]
     
@@ -494,7 +495,7 @@ proc ask_randspeed {} {
 }    
 
 proc ask_manual {rightp} { global pointasked; set pointasked M$rightp }
-proc ask_figureeightt {} { global pointasked; set pointasked 0 }
+proc ask_figureeight {} { global pointasked; set pointasked 0 }
 proc ask_loop {} { global pointasked; set pointasked 1 }
 proc ask_randpath {} { global pointasked; catch { unset pointasked } }