X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ijackson/git?a=blobdiff_plain;f=hostside%2Fstopgap-controller;h=607609d0bd64ec5a117a560a007aea6c09a47a1e;hb=8ea1b9e09c51e7fb4b31ebe9d3f5f103fc71b676;hp=45de0e8ab274f8478de597f59c73f9526c2958c5;hpb=963dbebfcf94741bc34b9c5320314203167393a6;p=trains.git

diff --git a/hostside/stopgap-controller b/hostside/stopgap-controller
index 45de0e8..607609d 100755
--- 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 } }